TP3/shell/tests/fixtures/t15_label.pas

program t15;
label
  1 ;
var
  x : integer ;
begin
  x := 0 ;
1: x := x + 1 ;
  if x < 5 then
    goto 1 ;
  writeln (x)
end.