xref: /csrg-svn/usr.bin/pascal/pdx/test/goto.p (revision 62156)
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