Return to varparam.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/pdx/test/varparam.p, revision 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.