freepascal.compiler/tests/tbf/tb0209.pp

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

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