3 procedure in_mod_conv
is
5 type T
is new Natural range 1..6;
6 subtype T_SubType
is T
range 3..5;
7 type A1
is array (T
range <>) of boolean;
8 type A2
is new A1
(T_SubType
);
10 type New_A2
is new A2
;
13 procedure P1
(Obj
: in New_A2
) is
17 procedure P2
(Data
: in out A2
) is
19 P1
(New_A2
(Data
(T_SubType
))); -- test