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.