1(*
2 * Copyright (c) 1980 The Regents of the University of California.
3 * All rights reserved.
4 *
5 * %sccs.include.redist.c%
6 *
7 *	@(#)varparam.p	5.1 (Berkeley) 04/16/91
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