gcc/testsuite/gnat.dg/gen_disp.ads


1
2
3
4
5
6
7
8
9
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;