freepascal.compiler/tests/tbf/tb0090.pp

{ %FAIL }
{$mode objfpc}
uses
   sysutils;

label l;

begin
   try
   except
      on e : exception do
        goto l;
   end;
   l:
end.