gcc/testsuite/gnat.dg/forward_anon.ads

   1 package Forward_Anon is
   2    type Object is null record;
   3    function Get_Current return access Object;
   4    Current_Object : constant access Object;
   5
   6  private
   7    One_Object : aliased Object;
   8    Current_Object : constant access Object := One_Object'Access;
   9 end;