CocoR/Test2/tests/q_for.mod

MODULE QFor;
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 QFor.