1 2 3 4 5 6 7 8 9
package Aggr3_Pkg is type Root is abstract tagged null record; type T is new Root with null record; My_T : T; end Aggr3_Pkg;