1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/array20.adb b/gcc/testsuite/gnat.dg/array20.adb
new file mode 100644
index 0000000..86eb61b
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/array20.adb
@@ -0,0 +1,13 @@
+-- { dg-do assemble }
+
+package body Array20 is
+
+   type Arr is array (Positive range <>) of Integer;
+
+   type P_Arr is access Arr;
+
+   N : constant P_Arr := null;
+
+   Table : P_Arr := N;
+
+end Array20;