gcc/testsuite/gnat.dg/opt6.ads

   1 package Opt6 is
   2
   3    type String_Access is access all String;
   4    type String_List is array (Positive range <>) of String_Access;
   5    type String_List_Access is access all String_List;
   6
   7    type Command_Line_Iterator is record
   8       Params   : String_List_Access;
   9       Current  : Natural;
  10    end record;
  11
  12    function Current_Parameter (Iter : Command_Line_Iterator) return String;
  13
  14 end Opt6;