CocoR/Test2/tests/q_repeat.mod

MODULE QRepeat;
VAR i, s : INTEGER; ExitCode : INTEGER;
BEGIN
  i := 0; s := 0;
  REPEAT i := i + 1; s := s + i UNTIL i >= 10;
  ExitCode := s
END QRepeat.