Skip to content

Commit 4ac334f

Browse files
tjj2017martin
authored andcommitted
The output of two testsuite programs has changed.
Intrinsic - A unsupported report is generated for importing a foreign language entity rather than a warning message. No_Corresponding_Spec - pragma Global no longer generates an unsuported report. The pragma has no effect for ASVAT analysis unless it is an ASVAT model when it is used to define the global variables of an interface model.
1 parent 2c08ec1 commit 4ac334f

File tree

2 files changed

+13
-14
lines changed

2 files changed

+13
-14
lines changed

testsuite/gnat2goto/tests/intrinsic/test.out

Lines changed: 13 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,16 @@
1-
Standard_Error from gnat2goto use_import:
2-
Warning: Multi-language analysis unsupported.
3-
Warning: Multi-language analysis unsupported.
1+
Standard_Output from gnat2goto use_import:
2+
----------At: Process_Pragma_Declaration----------
3+
----------pragma Import: Multi-language analysis unsupported----------
4+
N_Pragma (Node_Id=2272) (source,analyzed)
5+
Sloc = 8249 use_import.adb:3:4
6+
Pragma_Argument_Associations = List (List_Id=-99999980)
7+
Pragma_Identifier = N_Identifier "import" (Node_Id=2273)
8+
----------At: Process_Pragma_Declaration----------
9+
----------pragma Import: Multi-language analysis unsupported----------
10+
N_Pragma (Node_Id=2296) (source,analyzed)
11+
Sloc = 8305 use_import.adb:6:4
12+
Pragma_Argument_Associations = List (List_Id=-99999976)
13+
Pragma_Identifier = N_Identifier "import" (Node_Id=2297)
414

515
[overflow.1] file use_import.adb line 16 arithmetic overflow on signed unary minus in -((long int)use_import__i): SUCCESS
616
[use_import.assertion.1] line 16 Ada Check assertion: SUCCESS
Lines changed: 0 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,2 @@
1-
Standard_Output from gnat2goto no_corresponding_spec:
2-
----------At: Process_Pragma_Declaration----------
3-
----------Unsupported pragma: Global----------
4-
N_Pragma (Node_Id=2444) (analyzed)
5-
Sloc = 8446 no_corresponding_spec.adb:8:11
6-
Pragma_Argument_Associations = List (List_Id=-99999945)
7-
Corresponding_Aspect = N_Aspect_Specification (Node_Id=2279)
8-
Pragma_Identifier = N_Identifier "global" (Node_Id=2443)
9-
From_Aspect_Specification = True
10-
Is_Analyzed_Pragma = True
11-
121
[assertion.1] file no_corresponding_spec.adb line 15 Ada Check assertion: SUCCESS
132
VERIFICATION SUCCESSFUL

0 commit comments

Comments
 (0)