mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-02 02:02:39 +02:00
15 lines
176 B
ObjectPascal
15 lines
176 B
ObjectPascal
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.
|