M2compiler-V2/tests/r_flow.LST

Listing:

    1  MODULE RFlow;
    2  VAR ExitCode : INTEGER;
    3      i, s : INTEGER;
    4  BEGIN
    5    s := 0;
    6    IF 1 > 2 THEN s := 1
    7    ELSIF 2 > 3 THEN s := 2
    8    ELSE s := 3
    9    END;
   10    i := 0;
   11    WHILE i < 10 DO i := i + 1; s := s + i END;
   12    REPEAT s := s - 1 UNTIL s < 60;
   13    LOOP
   14      s := s + 1;
   15      IF s >= 60 THEN EXIT END
   16    END;
   17    FOR i := 1 TO 5 BY 2 DO s := s + i END;
   18    FOR i := 10 TO 1 DO s := s + 0 END;
   19    ExitCode := s
   20  END RFlow.

    0 errors