path: root/fpcsrc/tests/webtbs/tw4893b.pp

{$mode tp}

label a;

begin
  goto a;
 a:
end.