gcc/testsuite/gnat.dg/loop_optimization9.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

with GNAT.Strings; use GNAT.Strings;

package Loop_Optimization9 is

   type File_Descriptor is new Integer;

   procedure Create_Temp_File_Internal
     (FD   : out File_Descriptor;
      Name : out String_Access);

   subtype Argument_List is String_List;

   subtype Argument_List_Access is String_List_Access;

   function Argument_String_To_List
     (Arg_String : String) return Argument_List_Access;

end Loop_Optimization9;