1 files changed, 21 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/array22.adb b/gcc-4.9/gcc/testsuite/gnat.dg/array22.adb
new file mode 100644
index 000000000..c1725934a
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/array22.adb
@@ -0,0 +1,21 @@
+-- { dg-do compile }
+
+with System; use System;
+
+procedure Array22 is
+
+   type Integer_Address is mod Memory_Size;
+
+   type Memory is array (Integer_Address range <>) of Character;
+
+   type Chunk (First, Last : Integer_Address) is record
+      Mem : Memory (First .. Last);
+   end record;
+
+   C : Chunk (1, 8);
+   for C'Alignment use 8;
+   pragma Unreferenced (C);
+
+begin
+   null;
+end;