gcc/testsuite/gnat.dg/loop_optimization9.ads

   1 with GNAT.Strings; use GNAT.Strings;
   2
   3 package Loop_Optimization9 is
   4
   5    type File_Descriptor is new Integer;
   6
   7    procedure Create_Temp_File_Internal
   8      (FD   : out File_Descriptor;
   9       Name : out String_Access);
  10
  11    subtype Argument_List is String_List;
  12
  13    subtype Argument_List_Access is String_List_Access;
  14
  15    function Argument_String_To_List
  16      (Arg_String : String) return Argument_List_Access;
  17
  18 end Loop_Optimization9;