[llvm-commits] CVS: llvm/test/AdaFrontend/fat_fields.adb fat_fields.ads

[Duncan Sands]

Changes in directory llvm/test/AdaFrontend:

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

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


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

 fat_fields.adb |   10 ++++++++++
 fat_fields.ads |    6 ++++++
 2 files changed, 16 insertions(+)


Index: llvm/test/AdaFrontend/fat_fields.adb
diff -c /dev/null llvm/test/AdaFrontend/fat_fields.adb:1.1
*** /dev/null	Mon Mar  5 02:34:45 2007
--- llvm/test/AdaFrontend/fat_fields.adb	Mon Mar  5 02:34:35 2007
***************
*** 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;


Index: llvm/test/AdaFrontend/fat_fields.ads
diff -c /dev/null llvm/test/AdaFrontend/fat_fields.ads:1.1
*** /dev/null	Mon Mar  5 02:34:52 2007
--- llvm/test/AdaFrontend/fat_fields.ads	Mon Mar  5 02:34:35 2007
***************
*** 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;