fpcsrc/tests/tbs/tb0034.pp


1
2
3
4
5
6
7
8
9
10
11

{ 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.