Return to call.p CVS log

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

Annotation of 42BSD/ucb/pascal/pdx/test/call.p, revision 1.1.1.1

1.1       root        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.

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