freepascal.compiler/tests/tf/tf000004.pp

{$mode objfpc}
label l;

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