Skip to content

Commit 52248e7

Browse files
committed
Update test results and a failing test.
1 parent 360d666 commit 52248e7

File tree

2 files changed

+3
-1
lines changed

2 files changed

+3
-1
lines changed

testsuite/gnat2goto/tests/separate_subprog/p.adb

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -11,5 +11,7 @@ procedure P (X : in out integer) is
1111
Old_X : constant Integer := X;
1212
begin
1313
Inc (X);
14+
-- The following assert should succeed if the possibility
15+
-- overflow is ignored.
1416
pragma Assert (X = Old_X + 1);
1517
end P;
Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,3 @@
11
[2] file p-inc.asu line 6 assertion: SUCCESS
2-
[1] file p.adb line 14 assertion: FAILURE
2+
[1] file p.adb line 16 assertion: FAILURE
33
VERIFICATION FAILED

0 commit comments

Comments
 (0)