Return to bug.p CVS log

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

Annotation of 43BSD/ucb/pascal/pdx/test/bug.p, revision 1.1

1.1     ! root        1: program test (output);
        !             2: var a : array [1..10] of integer;
        !             3: procedure foo;
        !             4: begin
        !             5:  a[4] := 100;
        !             6:  a[5] := 100;
        !             7:  a[6] := 100;
        !             8: end;
        !             9: function bar (x:integer):integer;
        !            10:   begin
        !            11:     bar := 10*x;
        !            12:   end;
        !            13: begin
        !            14:  a[1] := 100;
        !            15:  foo;
        !            16:  a[2] := bar(2);
        !            17:  a[3] := 100;
        !            18: end.

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