1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/pack2.ads b/gcc/testsuite/gnat.dg/specs/pack2.ads
new file mode 100644
index 000000000..7272048a1
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/pack2.ads
@@ -0,0 +1,10 @@
+-- { dg-do compile }
+
+package Pack2 is 
+   type Rec is record
+       Ptr: access Character;
+       Int :Integer;
+   end record;
+   type Table is array (1..2) of rec;
+   pragma Pack (Table);
+end Pack2;