Return to varparam.p CVS log

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

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

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

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