M2compiler-V1/tests/t_repeat.LST

Listing:

    1  MODULE TRepeat;
    2  VAR i, s : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    i := 0; s := 0;
    5    REPEAT i := i + 1; s := s + i UNTIL i >= 10;
    6    ExitCode := s
    7  END TRepeat.

    0 errors