1*48090Sbostic(*
2*48090Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*48090Sbostic * All rights reserved.
4*48090Sbostic *
5*48090Sbostic * %sccs.include.redist.c%
6*48090Sbostic *
7*48090Sbostic *	@(#)varparam.p	5.1 (Berkeley) 04/16/91
8*48090Sbostic *)
9*48090Sbostic
10*48090Sbosticprogram varparam(input, output);
11*48090Sbosticvar i : integer;
12*48090Sbostic
13*48090Sbosticprocedure p(var i : integer);
14*48090Sbosticbegin
15*48090Sbostic	i := 3;
16*48090Sbostic	writeln('end of p');
17*48090Sbosticend;
18*48090Sbostic
19*48090Sbosticprocedure q(var i : integer);
20*48090Sbosticvar j : integer;
21*48090Sbosticbegin
22*48090Sbostic	p(i);
23*48090Sbostic	writeln('end of q');
24*48090Sbosticend;
25*48090Sbostic
26*48090Sbosticbegin
27*48090Sbostic	q(i);
28*48090Sbostic	writeln('end of test, i = ', i:1);
29*48090Sbosticend.
30