1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/discr26.ads b/gcc/testsuite/gnat.dg/discr26.ads
new file mode 100644
index 00000000000..5a428f2bfed
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/discr26.ads
@@ -0,0 +1,16 @@
+with Discr26_Pkg;
+
+package Discr26 is
+
+  type T1 (D : Integer) is record
+    case D is
+      when 1 => I : Integer;
+      when others => null;
+    end case;
+  end record;
+
+  type My_T1 is new T1 (Discr26_Pkg.N);
+
+  procedure Proc;
+
+end Discr26;