freepascal.compiler/tests/tf/tf000003.pp

{$mode objfpc}
label l;

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