mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 23:03:48 +02:00
14 lines
223 B
ObjectPascal
14 lines
223 B
ObjectPascal
{ Old file: tbs0039.pp }
|
|
{ shows the else-else problem OK 0.9.9 (FK) }
|
|
|
|
VAR a : BYTE;
|
|
BEGIN
|
|
a := 1;
|
|
IF a=0 THEN
|
|
IF a=1 THEN a:=2
|
|
ELSE
|
|
ELSE a:=3; { "Illegal expression" }
|
|
END.
|
|
|
|
|