3 package body Taft_Type1_Pkg1
is
4 type TAMT1
is new Taft_Type1_Pkg2
.Priv
(X
=> 1);
5 type TAMT2
is new Taft_Type1_Pkg2
.Priv
;
8 Ptr1
: TAMT1_Access
:= new TAMT1
;
9 Ptr2
: TAMT2_Access
:= new TAMT2
(X
=> 2);
11 if Ptr1
.all.X
/= 1 then
14 if Ptr2
.all.X
/= 2 then