1(* 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)call.p 5.1 (Berkeley) 04/16/91 8 *) 9 10program calltest(input, output); 11var i : integer; 12 13procedure p(i : integer; r : real); 14begin 15 writeln('i = ', (i/0):1, ', r = ', r:1:2); 16end; 17 18procedure q(var i : integer); 19begin 20 i := 3; 21end; 22 23begin 24 q(i); 25 p(1, 3.4); 26end. 27