1 -- PR rtl-optimization/45394
4 -- { dg-options "-O2 -g" }
8 function Current_Parameter (Iter : Command_Line_Iterator) return String is
11 or else Iter.Current > Iter.Params'Last
12 or else Iter.Params (Iter.Current) = null
18 P : constant String := Iter.Params (Iter.Current).all;
23 return P (P'First + 1 .. P'Last);
26 end Current_Parameter;