MODULE TBadNew;
VAR x : INTEGER;
VAR ExitCode : INTEGER;
BEGIN
  NEW(x)
END TBadNew.