summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/gen_disp.ads
blob: 722c0c1b1a1d144181adb437d9296a016d64a686 (plain)
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;