Return to bench.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Initial revision

program bench(output);
var a:alfa;
    i,j,k: integer;
begin
 writeln(wallclock);
 for i := 1 to 1000 do
    for j := 1 to 100 do
	k := 0;
 writeln(wallclock)
end.

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