148074Sbostic(* 2*62154Sbostic * Copyright (c) 1980, 1993 3*62154Sbostic * The Regents of the University of California. All rights reserved. 448074Sbostic * 548074Sbostic * %sccs.include.redist.c% 648074Sbostic * 7*62154Sbostic * @(#)call.p 8.1 (Berkeley) 06/06/93 848074Sbostic *) 948074Sbostic 1048074Sbosticprogram calltest(input, output); 1148074Sbosticvar i : integer; 1248074Sbostic 1348074Sbosticprocedure p(i : integer; r : real); 1448074Sbosticbegin 1548074Sbostic writeln('i = ', (i/0):1, ', r = ', r:1:2); 1648074Sbosticend; 1748074Sbostic 1848074Sbosticprocedure q(var i : integer); 1948074Sbosticbegin 2048074Sbostic i := 3; 2148074Sbosticend; 2248074Sbostic 2348074Sbosticbegin 2448074Sbostic q(i); 2548074Sbostic p(1, 3.4); 2648074Sbosticend. 27