freepascal.compiler/tests/tbs/tb0050.pp

{ Old file: tbs0056.pp }
{  shows a _very_ simple expression which generates     OK 0.99.1 (FK) }

PROGRAM ShowBug;

(* This will compile
VAR N, E: Integer;*)

(* This will NOT compile*)
VAR N, E: LongInt;

BEGIN
   E := 2;
   WriteLn(E);
   N := 44 - E;
   WriteLn(N);
END.