blob: 5537ddb31e5e799a3154da5019b641e040b0ba8b [file] [log] [blame]
-- { dg-do compile }
package body Interface8 is
function Get_Iface (This : Child) return not null access Iface'Class
is
begin
return This.Interface_1;
end;
end;