RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2025-01-07 20:04:03 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Testcase causing the Ada front-end to create bogus constructor fields.

Browse Source 
llvm-svn: 34926
This commit is contained in:
Duncan Sands 2007-03-05 08:34:35 +00:00
parent 964b80ff60
commit 8aee7f8a56
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/AdaFrontend/fat_fields.adb Normal file
View File

@ -0,0 +1,10 @@
-- RUN: %llvmgcc -c %s -o /dev/null
-- RUN: %llvmgcc -c %s -O2 -o /dev/null
package body Fat_Fields is
procedure Proc is
begin
if P = null then
null;
end if;
end;
end;

6
test/AdaFrontend/fat_fields.ads Normal file
View File

@ -0,0 +1,6 @@
package Fat_Fields is
pragma Elaborate_Body;
type A is array (Positive range <>) of Boolean;
type A_Ptr is access A;
P : A_Ptr := null;
end;