CocoR/Test2/tests/q_loop.LST

Listing:

    1  MODULE QLoop;
    2  VAR i : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    i := 0;
    5    LOOP
    6      i := i + 1;
    7      IF i >= 7 THEN EXIT END
    8    END;
    9    ExitCode := i
   10  END QLoop.

    0 errors