2 -- { dg-options "-gnat12 -gnatVa" }
4 procedure In_Out_Parameter4
is
6 type Enum
is (E_Undetermined
, E_Down
, E_Up
);
7 subtype Status_T
is Enum
range E_Down
.. E_Up
;
9 function Recurse
(Val
: in out Integer) return Status_T
is
13 procedure Dummy
(I
: in out Integer) is begin null; end;
18 Result
:= Recurse
(Val
);