fpcsrc/tests/tbs/tb0031.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ Old file: tbs0035.pp }
{  label at end of block gives error                   OK 0.9.9 (FK) }

{$goto on}

label   hallo;

begin
   writeln('Hello');
  begin
hallo:          {Error message: Incorrect expression.}
  end;
  writeln('Hello again');
end.