fpcsrc/tests/webtbs/tw3546.pp


1
2
3
4
5
6
7
8
9
10

{$ifdef fpc}{$goto on}{$endif}

label 000,01,1;
begin
  goto 000;
  writeln('1');
  halt(1);
000:
  writeln('2');
end.