gcc/testsuite/gnat.dg/incomplete5_pkg.adb

   1 package body Incomplete5_Pkg is
   2
   3    function Get_Handle (Object: Base_Object) return Access_Type is
   4    begin
   5       return Object.Handle;
   6    end;
   7
   8    function From_Handle (Handle: Access_Type) return Base_Object is
   9    begin
  10       return (Handle=>Handle);
  11    end;
  12
  13 end Incomplete5_Pkg;