1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/discr11_pkg.ads b/gcc/testsuite/gnat.dg/discr11_pkg.ads
new file mode 100644
index 000000000..1b0a979bb
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/discr11_pkg.ads
@@ -0,0 +1,8 @@
+package Discr11_Pkg is
+   type DT_1 (<>) is tagged private;
+   function Create return DT_1;
+private
+   type DT_1 (Size : Positive) is tagged record
+      Data : String (1 .. Size);
+   end record;
+end Discr11_Pkg;