M2compiler-V1/tests/t_for.mod

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