1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/gen_disp.ads b/gcc/testsuite/gnat.dg/gen_disp.ads
new file mode 100644
index 000000000..722c0c1b1
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/gen_disp.ads
@@ -0,0 +1,10 @@
+with Ada.Streams, Ada.Tags;
+package gen_disp is
+   type Root_Type is tagged null record;
+   
+   function Root_Type_Class_Input
+     (S    : not null access Ada.Streams.Root_Stream_Type'Class)
+      return Root_Type'Class;
+      
+   for Root_Type'Class'Input use Root_Type_Class_Input;
+end gen_disp;