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