1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/pointer_discr1_pkg3.ads b/gcc/testsuite/gnat.dg/pointer_discr1_pkg3.ads
new file mode 100644
index 000000000..b27b5149a
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/pointer_discr1_pkg3.ads
@@ -0,0 +1,13 @@
+package Pointer_Discr1_Pkg3 is
+
+  type T_TYPE is (One, Two, Three);
+
+  type T_DATA (D : T_TYPE);
+
+  type T_DATA (D : T_TYPE) is null record;
+
+  type T_WINDOW is access T_DATA;
+
+  procedure Map (Window : in T_WINDOW);
+
+end Pointer_Discr1_Pkg3;