CocoR/Test2/tests/q_loop.mod

MODULE QLoop;
VAR i : INTEGER; ExitCode : INTEGER;
BEGIN
  i := 0;
  LOOP
    i := i + 1;
    IF i >= 7 THEN EXIT END
  END;
  ExitCode := i
END QLoop.