[llvm-commits] CVS: llvm/test/FrontendAda/unc_constructor.adb unc_constructor.ads

[Duncan Sands]

Changes in directory llvm/test/FrontendAda:

unc_constructor.adb added (r1.1)
unc_constructor.ads added (r1.1)
---
Log message:

Test that TREE_CONSTANT is being set correctly.


---
Diffs of the changes:  (+17 -0)

 unc_constructor.adb |    9 +++++++++
 unc_constructor.ads |    8 ++++++++
 2 files changed, 17 insertions(+)


Index: llvm/test/FrontendAda/unc_constructor.adb
diff -c /dev/null llvm/test/FrontendAda/unc_constructor.adb:1.1
*** /dev/null	Wed May  2 02:43:24 2007
--- llvm/test/FrontendAda/unc_constructor.adb	Wed May  2 02:43:14 2007
***************
*** 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;


Index: llvm/test/FrontendAda/unc_constructor.ads
diff -c /dev/null llvm/test/FrontendAda/unc_constructor.ads:1.1
*** /dev/null	Wed May  2 02:43:33 2007
--- llvm/test/FrontendAda/unc_constructor.ads	Wed May  2 02:43:14 2007
***************
*** 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;