freepascal.compiler/tests/tbs/tb0393.pp

{ %OPT=-Sg}

label 1;
begin
 goto 1;
1:
end.