M2compiler-V1/tests/t_arith.LST

Listing:

    1  MODULE TArith;
    2  VAR x, y : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    x := 1 + 2 * 3 - 4 DIV 2;
    5    y := (x + 10) * 2 MOD 7;
    6    ExitCode := x + y
    7  END TArith.

    0 errors