CocoR/Test2/tests/q_while.mod

MODULE QWhile;
VAR i, s : INTEGER; ExitCode : INTEGER;
BEGIN
  i := 1; s := 0;
  WHILE i <= 10 DO s := s + i; i := i + 1 END;
  ExitCode := s
END QWhile.