diff options
| author | Duncan Sands <baldrick@free.fr> | 2007-05-06 16:20:30 +0000 |
|---|---|---|
| committer | Duncan Sands <baldrick@free.fr> | 2007-05-06 16:20:30 +0000 |
| commit | 56a837be5e09ca8f1e4db0f8c93da67f7f35c227 (patch) | |
| tree | 27bcb07bdd0083423ea98f17ecfe1ec45ce61656 | |
| parent | ecd94c804a563f2a86572dcf1d2e81f397e19daa (diff) | |
Testcase for yet another global constant Ada f-e bug.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36874 91177308-0d34-0410-b5e6-96231b3b80d8
| -rw-r--r-- | test/FrontendAda/global_constant.adb | 5 | ||||
| -rw-r--r-- | test/FrontendAda/global_constant.ads | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/test/FrontendAda/global_constant.adb b/test/FrontendAda/global_constant.adb new file mode 100644 index 0000000000..4b64f101bd --- /dev/null +++ b/test/FrontendAda/global_constant.adb @@ -0,0 +1,5 @@ +-- RUN: %llvmgcc -c %s -o /dev/null +package body Global_Constant is +begin + raise An_Error; +end; diff --git a/test/FrontendAda/global_constant.ads b/test/FrontendAda/global_constant.ads new file mode 100644 index 0000000000..cef4b11f68 --- /dev/null +++ b/test/FrontendAda/global_constant.ads @@ -0,0 +1,4 @@ +package Global_Constant is + pragma Elaborate_Body; + An_Error : exception; +end; |