blob: 12134b01f0de1caec20a7a4bb06bbbdd3d836ecb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ 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.
|
