M2compiler-V1/tests/t_loop.mod

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