blob: 65d19a6cb73b907bfd4eb8ebfb8a10e1ab395c23 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnatws" }
package body interface5 is
function F (Object : Child) return access Child is
begin
return null;
end F;
end interface5;