4.3BSD - /usr/src/ucb/pascal/pdx/test/goto.p

   1: 
   2: program gototest(input, output);
   3: label 1;
   4: 
   5: procedure A;
   6: begin
   7:     writeln('A');
   8:     goto 1;
   9: end;
  10: 
  11: procedure B;
  12: begin
  13:     writeln('B');
  14:     A;
  15: end;
  16: 
  17: begin
  18:     B;
  19: 1:
  20:     writeln('exiting');
  21: end.