1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/aggr11.adb b/gcc/testsuite/gnat.dg/aggr11.adb
new file mode 100644
index 00000000000..1771d62cacb
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/aggr11.adb
@@ -0,0 +1,17 @@
+-- { dg-do compile }
+-- { dg-options "-O" }
+
+with Aggr11_Pkg; use Aggr11_Pkg;
+
+procedure Aggr11 is
+
+  A : Arr := ((1 => (Kind  => No_Error, B => True),
+               2 => (Kind => Error),
+               3 => (Kind => Error),
+               4 => (Kind  => No_Error, B => True),
+               5 => (Kind  => No_Error, B => True),
+               6 => (Kind  => No_Error, B => True)));
+
+begin
+   null;
+end;