TP3/shell/tests/fixtures/t120_labels.pas

program named_labels;
label Again, Done;
var I : integer;
begin
  I := 0;
Again:
  I := I + 1;
  if I < 3 then goto Again;
  writeln(I);
Done: ;
end.