3 procedure access_discr
is
7 type Iface
is limited interface
;
8 type Base
is tagged limited null record;
10 type Two_Alone
(Parent
: access One
) is limited null record;
11 type Two_Iface
(Parent
: access One
) is limited new Iface
with null record;
12 type Two_Base
(Parent
: access One
) is new Base
with null record;
14 type One
is limited record
15 TA
: Two_Alone
(One
'Access);
16 TI
: Two_Iface
(One
'Access); -- OFFENDING LINE
17 TB
: Two_Base
(One
'Access);