Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization9.ads
blob95f8221bd906b687b22a5ab0b6fd73bdbf98eec4
1 with GNAT.Strings; use GNAT.Strings;
3 package Loop_Optimization9 is
5 type File_Descriptor is new Integer;
7 procedure Create_Temp_File_Internal
8 (FD : out File_Descriptor;
9 Name : out String_Access);
11 subtype Argument_List is String_List;
13 subtype Argument_List_Access is String_List_Access;
15 function Argument_String_To_List
16 (Arg_String : String) return Argument_List_Access;
18 end Loop_Optimization9;