6 type T is limited private;
7 type TT is limited private;
8 type TTT is tagged limited private;
12 Self : access T := T'Unchecked_Access;
14 type TT is tagged limited
16 Self : access TT := TT'Unchecked_Access;
18 type TTT is tagged limited
20 Self : access TTT := TTT'Unchecked_Access;
25 X : T := (Self => <>);
26 XX : TT := (Self => <>);
27 XXX : TTT := (Self => <>);
28 Y : T := (others => <>);
29 YY : TT := (others => <>);
30 YYY : TTT := (others => <>);