M2compiler-V3/compiler/tests/t_bad_for.mod

MODULE TBadFor;
VAR ExitCode, i : INTEGER;
BEGIN
  FOR i := 1 TO 10 BY 0 DO ExitCode := i END
END TBadFor.