4.3BSD - /usr/src/ucb/dbx/tests/pc/varparam.p

   1: program varparam(input, output);
   2: var i : integer;
   3: 
   4: procedure p(var i : integer);
   5: begin
   6:     i := 3;
   7:     writeln('end of p');
   8: end;
   9: 
  10: procedure q(var i : integer);
  11: var j : integer;
  12: begin
  13:     p(i);
  14:     writeln('end of q');
  15: end;
  16: 
  17: begin
  18:     q(i);
  19:     writeln('end of test, i = ', i:1);
  20: end.