M2compiler-V2/tests/r_const.LST

Listing:

    1  MODULE RConst;
    2  CONST N = 10;
    3        H = 0FFH;
    4        Neg = -N + 2;
    5        Big = 1000;
    6  VAR ExitCode : INTEGER;
    7      i : INTEGER;
    8  BEGIN
    9    ExitCode := 0;
   10    FOR i := 1 TO N DO ExitCode := ExitCode + 1 END;
   11    IF H = 255 THEN ExitCode := ExitCode + 100 END;
   12    ExitCode := ExitCode + Neg + Big
   13  END RConst.

    0 errors