148090Sbostic(*
2*62160Sbostic * Copyright (c) 1980, 1993
3*62160Sbostic *	The Regents of the University of California.  All rights reserved.
448090Sbostic *
548090Sbostic * %sccs.include.redist.c%
648090Sbostic *
7*62160Sbostic *	@(#)varparam.p	8.1 (Berkeley) 06/06/93
848090Sbostic *)
948090Sbostic
1048090Sbosticprogram varparam(input, output);
1148090Sbosticvar i : integer;
1248090Sbostic
1348090Sbosticprocedure p(var i : integer);
1448090Sbosticbegin
1548090Sbostic	i := 3;
1648090Sbostic	writeln('end of p');
1748090Sbosticend;
1848090Sbostic
1948090Sbosticprocedure q(var i : integer);
2048090Sbosticvar j : integer;
2148090Sbosticbegin
2248090Sbostic	p(i);
2348090Sbostic	writeln('end of q');
2448090Sbosticend;
2548090Sbostic
2648090Sbosticbegin
2748090Sbostic	q(i);
2848090Sbostic	writeln('end of test, i = ', i:1);
2948090Sbosticend.
30