M2compiler-V3/compiler/tests/t_loop.mod

MODULE TLoop;
VAR ExitCode, i, s : INTEGER;
BEGIN
  s := 0; i := 1;
  LOOP
    IF i > 10 THEN EXIT END;
    s := s + i; i := i + 1
  END;
  ExitCode := s
END TLoop.