1(* 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)goto.p 5.1 (Berkeley) 04/16/91 8 *) 9 10 11program gototest(input, output); 12label 1; 13 14procedure A; 15begin 16 writeln('A'); 17 goto 1; 18end; 19 20procedure B; 21begin 22 writeln('B'); 23 A; 24end; 25 26begin 27 B; 281: 29 writeln('exiting'); 30end. 31