BSD 2 development

[unix-history] / src / pascal / tests / bench.p

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.