llvm.org GIT mirror llvm / 56a837b
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 Duncan Sands 13 years ago
2 changed file(s) with 9 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
0 -- RUN: %llvmgcc -c %s -o /dev/null
1 package body Global_Constant is
2 begin
3 raise An_Error;
4 end;
0 package Global_Constant is
1 pragma Elaborate_Body;
2 An_Error : exception;
3 end;