gcc/testsuite/gnat.dg/opt6.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14

package Opt6 is

   type String_Access is access all String;
   type String_List is array (Positive range <>) of String_Access;
   type String_List_Access is access all String_List;

   type Command_Line_Iterator is record
      Params   : String_List_Access;
      Current  : Natural;
   end record;

   function Current_Parameter (Iter : Command_Line_Iterator) return String;

end Opt6;