blob: d67b37518540893de04f008bd046f97b2a667762 [file] [log] [blame]
package Interface8 is
type Iface is interface;
type Root is abstract tagged null record;
type Child is new Root and Iface with record
Interface_1 : access Iface'Class;
end record;
function Get_Iface (This : Child) return not null access Iface'Class;
end;