3 subtype Index is Integer range 0 .. 100;
6 type Frame_Ptr is access all Root'Class;
8 type Arr is array (Index range <>) of Frame_Ptr;
10 type Root (Level : Index) is tagged record
14 type Derived (Level : Index) is new Root (Level) with null record;
16 type Child is new Derived (0) with record
20 procedure Proc (A : access Child);