3 procedure late_overriding
is
6 procedure Meth
(O
: in I
) is abstract;
7 type Root
is abstract tagged null record;
8 type DT1
is abstract new Root
and I
with null record;
11 type DT2
is new DT1
with null record;
12 procedure Meth
(X
: DT2
) is begin null; end; -- Test