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
;