4.3BSD - /usr/src/ucb/pascal/pdx/test/call.p

   1: program calltest(input, output);
   2: var i : integer;
   3: 
   4: procedure p(i : integer; r : real);
   5: begin
   6:     writeln('i = ', (i/0):1, ', r = ', r:1:2);
   7: end;
   8: 
   9: procedure q(var i : integer);
  10: begin
  11:     i := 3;
  12: end;
  13: 
  14: begin
  15:     q(i);
  16:     p(1, 3.4);
  17: end.