t_bad_with.mod 87 B

123456
  1. MODULE TBadWith;
  2. VAR n : INTEGER;
  3. BEGIN
  4. n := 1;
  5. WITH n DO n := 2 END
  6. END TBadWith.