freepascal.compiler/tests/webtbf/tw4893e.pp

{ %fail }

{$mode objfpc}

label a;

begin
  goto a;
 a:
end.