package Anon3 is
   X : access Integer := new Integer;
   procedure Dummy;
end Anon3;