6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-04-02 10:33:53 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@34926 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Duncan Sands 2007-03-05 08:34:35 +00:00
parent 143cced66b
commit bc95a5487c
2 changed files with 16 additions and 0 deletions

10
test/AdaFrontend/fat_fields.adb Normal 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

@ -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;