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