MODULE PBadNew;
VAR x : INTEGER;
BEGIN
  x := 1;
  NEW(x)
END PBadNew.