tisogoto2.pp 159 B

12345678910111213141516171819
  1. { %fail }
  2. {$mode iso}
  3. program tisogoto2(output);
  4. label
  5. 1;
  6. procedure p1;
  7. begin
  8. 1:
  9. end;
  10. procedure p2;
  11. begin
  12. goto 1;
  13. end;
  14. begin
  15. p2;
  16. end.