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
This commit is contained in:
Duncan Sands 2007-05-06 16:20:30 +00:00
parent ecd94c804a
commit 56a837be5e
2 changed files with 9 additions and 0 deletions

View File

@ -0,0 +1,5 @@
-- RUN: %llvmgcc -c %s -o /dev/null
package body Global_Constant is
begin
raise An_Error;
end;

View File

@ -0,0 +1,4 @@
package Global_Constant is
pragma Elaborate_Body;
An_Error : exception;
end;