M2compiler-V1/tests/t_repeat.mod

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