M2compiler-V3/compiler/tests/t_constlong.mod

MODULE TConstLong;
// CONST initialisers that convert between INTEGER and LONGINT fold when
// the operand is an immediate.  Exit 42.
CONST a = VAL(LONGINT, 5);
      b = VAL(INTEGER, 5);
      c = VAL(LONGINT, -3);
VAR ExitCode : INTEGER;
BEGIN
  IF (a = 5) AND (b = 5) AND (c = -3)
  THEN ExitCode := 42 ELSE ExitCode := 1 END
END TConstLong.