gcc/testsuite/gnat.dg/addr13.ads

generic
   Gen_Obj : in out Integer;
package Addr13 is
   procedure Overlay;
end Addr13;