1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/array13.ads b/gcc/testsuite/gnat.dg/array13.ads
new file mode 100644
index 000000000..0d0a8df50
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/array13.ads
@@ -0,0 +1,13 @@
+package Array13 is
+
+   Max : Natural := 1;
+
+   type Arr is array (Natural range 0..Max) of Natural;
+
+   type T is record
+      A : Arr := (others => 0);
+   end record;
+
+   procedure Foo;
+
+end Array13;