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

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@34926 91177308-0d34-0410-b5e6-96231b3b80d8

2 files changed, 16 insertions, 0 deletions

diff --git a/test/AdaFrontend/fat_fields.adb b/test/AdaFrontend/fat_fields.adb
new file mode 100644
index 0000000000..906e34ee0b
--- /dev/null
+++ b/test/AdaFrontend/fat_fields.adb
@@ -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;
diff --git a/test/AdaFrontend/fat_fields.ads b/test/AdaFrontend/fat_fields.ads
new file mode 100644
index 0000000000..d3eab3e286
--- /dev/null
+++ b/test/AdaFrontend/fat_fields.ads
@@ -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;