6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-28 04:33:05 +00:00
Code Issues Projects Releases Wiki Activity

Test that TREE_CONSTANT is being set correctly.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36645 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Duncan Sands 2007-05-02 07:43:14 +00:00
parent 00d4bc0aa8
commit d60a18dfbc
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/FrontendAda/unc_constructor.adb Normal file
View File

@ -0,0 +1,9 @@
-- RUN: %llvmgcc -c %s -o /dev/null
package body Unc_Constructor is
procedure P (X : A) is
begin
if X = A0 then
null;
end if;
end;
end;

8
test/FrontendAda/unc_constructor.ads Normal file
View File

@ -0,0 +1,8 @@
package Unc_Constructor is
type C is null record;
type A is array (Positive range <>) of C;
A0 : constant A;
procedure P (X : A);
private
A0 : aliased constant A := (1 .. 0 => (null record));
end;