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