gcc/testsuite/gnat.dg/interface5.adb

   1 --  { dg-do compile }
   2 --  { dg-options "-gnatws" }
   3 package body interface5 is
   4    function F (Object : Child) return access Child is
   5    begin
   6       return null;
   7    end F;
   8 end interface5;