gcc/testsuite/gnat.dg/gen_disp.ads

   1 with Ada.Streams, Ada.Tags;
   2 package gen_disp is
   3    type Root_Type is tagged null record;
   4
   5    function Root_Type_Class_Input
   6      (S    : not null access Ada.Streams.Root_Stream_Type'Class)
   7       return Root_Type'Class;
   8
   9    for Root_Type'Class'Input use Root_Type_Class_Input;
  10 end gen_disp;