gcc/testsuite/gnat.dg/anon3.ads

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