3 with Limited_With4_Pkg
;
5 package body Limited_With4
is
7 procedure Proc1
(A
: Limited_With4_Pkg
.Rec12
; I
: Integer) is
14 function Func1
(I
: Integer) return Limited_With4_Pkg
.Rec12
is
16 return (I
=> I
, R
=> (I
=> I
));
19 procedure Proc2
(A
: Limited_With4_Pkg
.Rec22
; I
: Integer) is
26 function Func2
(I
: Integer) return Limited_With4_Pkg
.Rec22
is
28 return (I
=> I
, R
=> (I
=> I
));
31 procedure Proc3
(A
: Limited_With4_Pkg
.Rec12
; B
: Limited_With4_Pkg
.Rec22
) is
33 if A
.R
.I
/= B
.R
.I
then
38 function Func3
(A
: Limited_With4_Pkg
.Rec12
) return Limited_With4_Pkg
.Rec22
is
40 return (I
=> A
.R
.I
, R
=> (I
=> A
.R
.I
));