gcc/testsuite/gnat.dg/debug2_pkg.ads

   1 package Debug2_Pkg is
   2
   3     type String_Ptr is access all String;
   4
   5     function To_Heap return String_Ptr;
   6
   7     type String_List(Chars_Length: Positive) is private;
   8
   9     type String_List_Ptr is access constant String_List;
  10
  11     function Singleton return String_List;
  12
  13 private
  14
  15     type String_List(Chars_Length: Positive) is record
  16         Chars: String(1..Chars_Length);
  17     end record;
  18
  19 end Debug2_Pkg;