1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/discr_test2.adb b/gcc/testsuite/gnat.dg/discr_test2.adb
new file mode 100644
index 000000000..89f46782a
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/discr_test2.adb
@@ -0,0 +1,18 @@
+--  { dg-do compile }
+
+procedure Discr_Test2 is
+   type Ptr is access all integer;
+   type Ar is array (Integer range <>) of Ptr;
+        
+   type Inner (Discr : Integer) is record
+      Comp : Ar (1..Discr);
+   end record;
+
+   type Wrapper (Discr : Integer) is record
+      Comp :  Inner (Discr);
+   end record;
+
+   Val  : constant Wrapper := (0, Comp => <>);
+begin
+   null;
+end;