CocoR/Test1/tests/t_ok_statements.LST

Listing:

    1  MODULE Stmts;
    2  VAR x, y : INTEGER; rec : RECORD a : INTEGER END;
    3  BEGIN
    4    IF x = 0 THEN y := 1 ELSIF x = 1 THEN y := 2 ELSE y := 3 END;
    5    CASE x OF
    6      1 : y := 10
    7    | 2, 3 : y := 20
    8    | 4 .. 10 : y := 30
    9    ELSE y := 0
   10    END;
   11    WHILE x > 0 DO x := x - 1 END;
   12    REPEAT x := x + 1 UNTIL x > 10;
   13    LOOP IF x > 100 THEN EXIT END; x := x + 1 END;
   14    FOR y := 1 TO 10 BY 2 DO x := x + y END;
   15    FOR y := 1 TO 10 DO x := x + 1 END;
   16    WITH rec DO a := 5 END
   17  END Stmts.

    0 errors