summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt6.ads
blob: f04985316425cdcf40ddb8bcc4af00a6a5a1b6a0 (plain)
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;