1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/discr11.ads b/gcc/testsuite/gnat.dg/discr11.ads
new file mode 100644
index 000000000..b3911999d
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/discr11.ads
@@ -0,0 +1,9 @@
+with Discr11_Pkg; use Discr11_Pkg;
+
+package Discr11 is
+   type DT_2 is new DT_1 with record
+     More : Integer;
+   end record;
+
+   function Create return DT_2;
+end Discr11;