date and time created 91/04/16 14:59:08 by bostic

[unix-history] / usr / src / usr.bin / pascal / pdx / test / varparam.p

(*
* Copyright (c) 1980 The Regents of the University of California.
* All rights reserved.
*
* %sccs.include.redist.c%
*
*      @(#)varparam.p  5.1 (Berkeley) %G%
*)

program varparam(input, output);
var i : integer;

procedure p(var i : integer);
begin
       i := 3;
       writeln('end of p');
end;

procedure q(var i : integer);
var j : integer;
begin
       p(i);
       writeln('end of q');
end;

begin
       q(i);
       writeln('end of test, i = ', i:1);
end.