fpcsrc/tests/tbs/tb0553.pp


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

{$mode objfpc}
{$goto on}
var
  a : longint;
label
  g;

begin
  try
    a:=2;
  finally
    if a>1 then
      goto g;
    writeln('Error');
    g:
  end;
end.