RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2025-05-13 18:45:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Test that TREE_CONSTANT is being set correctly.

Browse Source 
llvm-svn: 36645
This commit is contained in:
Duncan Sands 2007-05-02 07:43:14 +00:00
parent 2f2e949039
commit c0464dd9ee
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;