148080Sbostic(* 2*62156Sbostic * Copyright (c) 1980, 1993 3*62156Sbostic * The Regents of the University of California. All rights reserved. 448080Sbostic * 548080Sbostic * %sccs.include.redist.c% 648080Sbostic * 7*62156Sbostic * @(#)goto.p 8.1 (Berkeley) 06/06/93 848080Sbostic *) 948080Sbostic 1048080Sbostic 1148080Sbosticprogram gototest(input, output); 1248080Sbosticlabel 1; 1348080Sbostic 1448080Sbosticprocedure A; 1548080Sbosticbegin 1648080Sbostic writeln('A'); 1748080Sbostic goto 1; 1848080Sbosticend; 1948080Sbostic 2048080Sbosticprocedure B; 2148080Sbosticbegin 2248080Sbostic writeln('B'); 2348080Sbostic A; 2448080Sbosticend; 2548080Sbostic 2648080Sbosticbegin 2748080Sbostic B; 2848080Sbostic1: 2948080Sbostic writeln('exiting'); 3048080Sbosticend. 31