mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 19:48:08 +02:00
18 lines
275 B
ObjectPascal
18 lines
275 B
ObjectPascal
{ 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.
|