freepascal.compiler/tests/tf/tf000005.pp

{$mode objfpc}
label l;

begin
   try
   except
      goto l;
   end;
   l:
end.