M2compiler-V2/tests/r_const.mod

MODULE RConst;
CONST N = 10;
      H = 0FFH;
      Neg = -N + 2;
      Big = 1000;
VAR ExitCode : INTEGER;
    i : INTEGER;
BEGIN
  ExitCode := 0;
  FOR i := 1 TO N DO ExitCode := ExitCode + 1 END;
  IF H = 255 THEN ExitCode := ExitCode + 100 END;
  ExitCode := ExitCode + Neg + Big
END RConst.