Skip to content

Commit 79d5d8e

Browse files
committed
Update tests and add failure test
1 parent 52248e7 commit 79d5d8e

File tree

4 files changed

+24
-0
lines changed

4 files changed

+24
-0
lines changed
Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
-- Use *.asu file extension for a subunit so that it is not included as a
2+
-- a top level unit to be analysed using by the regression test system.
3+
-- The gnat front-end will automatically analyse the subunit when it
4+
-- encounters the sybprogram_body_stub.
5+
pragma Source_File_Name (
6+
Subunit_File_Name => "*.asu",
7+
Dot_Replacement => "-");
8+
9+
procedure P (X : in out integer) is
10+
procedure Inc (N : in out Integer) is separate;
11+
Old_X : constant Integer := X;
12+
begin
13+
Inc (X);
14+
-- The following assert should succeed if the possibility
15+
-- overflow is ignored.
16+
pragma Assert (X = Old_X + 1);
17+
end P;
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
ALL XFAIL Assert statement in p.adb should succeed.
Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
[2] file p-inc.asu line 6 assertion: SUCCESS
2+
[1] file p.adb line 16 assertion: SUCCESS
3+
VERIFICATION SUCCEEDED
Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
from test_support import *
2+
3+
prove()

0 commit comments

Comments
 (0)