gcc/testsuite/gnat.dg/incomplete5_pkg.adb

package body Incomplete5_Pkg is

   function Get_Handle (Object: Base_Object) return Access_Type is
   begin
      return Object.Handle;
   end;

   function From_Handle (Handle: Access_Type) return Base_Object is
   begin
      return (Handle=>Handle);
   end;

end Incomplete5_Pkg;