[llvm-commits] CVS: llvm/test/FrontendAda/global_constant.adb global_constant.ads

[Duncan Sands]

Changes in directory llvm/test/FrontendAda:

global_constant.adb added (r1.1)
global_constant.ads added (r1.1)
---
Log message:

Testcase for yet another global constant Ada f-e bug.


---
Diffs of the changes:  (+9 -0)

 global_constant.adb |    5 +++++
 global_constant.ads |    4 ++++
 2 files changed, 9 insertions(+)


Index: llvm/test/FrontendAda/global_constant.adb
diff -c /dev/null llvm/test/FrontendAda/global_constant.adb:1.1
*** /dev/null	Sun May  6 11:20:40 2007
--- llvm/test/FrontendAda/global_constant.adb	Sun May  6 11:20:30 2007
***************
*** 0 ****
--- 1,5 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ package body Global_Constant is
+ begin
+    raise An_Error;
+ end;


Index: llvm/test/FrontendAda/global_constant.ads
diff -c /dev/null llvm/test/FrontendAda/global_constant.ads:1.1
*** /dev/null	Sun May  6 11:20:49 2007
--- llvm/test/FrontendAda/global_constant.ads	Sun May  6 11:20:30 2007
***************
*** 0 ****
--- 1,4 ----
+ package Global_Constant is
+    pragma Elaborate_Body;
+    An_Error : exception;
+ end;