Return to call.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / pascal / pdx / test

BSD 4.3

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

procedure p(i : integer; r : real);
begin
    writeln('i = ', (i/0):1, ', r = ', r:1:2);
end;

procedure q(var i : integer);
begin
    i := 3;
end;

begin
    q(i);
    p(1, 3.4);
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.