t_bad_new.mod 85 B

123456
  1. MODULE TBadNew;
  2. VAR x : INTEGER;
  3. VAR ExitCode : INTEGER;
  4. BEGIN
  5. NEW(x)
  6. END TBadNew.