Return to bug.p CVS log

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

BSD 4.3

program test (output);
var a : array [1..10] of integer;
procedure foo;
begin
 a[4] := 100;
 a[5] := 100;
 a[6] := 100;
end;
function bar (x:integer):integer;
  begin
    bar := 10*x;
  end;
begin
 a[1] := 100;
 foo;
 a[2] := bar(2);
 a[3] := 100;
end.

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