gcc/testsuite/gnat.dg/dispatch2_p.ads

   1 package dispatch2_p is
   2   type Object     is tagged null record;
   3   type Object_Ptr is access all Object'CLASS;
   4 --
   5   function Impl_Of (Self : access Object) return Object_Ptr;
   6   function Get_Ptr (Self : access Object) return Object_Ptr
   7     renames Impl_Of;
   8 end;