M2compiler-V3/compiler/tests/t_for.mod

MODULE TFor;
VAR ExitCode, i, s : INTEGER;
BEGIN
  s := 0;
  FOR i := 1 TO 10 DO s := s + i END;
  FOR i := 10 TO 1 BY -2 DO s := s + i END;
  FOR i := 5 TO 1 DO s := s + 1000 END;
  ExitCode := s
END TFor.