4 procedure Test_Access_Image
is
8 type T_General_Access
is access all T
;
9 type T_Access
is access T
;
10 function Image1
is new Subp_Inst_Pkg
.Image
(T
, T_Access
);
11 function Image2
is new Subp_Inst_Pkg
.Image
(T
, T_General_Access
);
12 function Image3
is new Subp_Inst_Pkg
.T_Image
(T
);
14 type T
is null record;
18 AG
: aliased constant Nested
.T_General_Access
:= A
'Access;
19 AA
: aliased constant Nested
.T_Access
:= new Nested
.T
;
22 end Test_Access_Image
;