home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / bench.p < prev    next >
Text File  |  1980-02-17  |  164b  |  11 lines
  1. program bench(output);
  2. var a:alfa;
  3.     i,j,k: integer;
  4. begin
  5.  writeln(wallclock);
  6.  for i := 1 to 1000 do
  7.     for j := 1 to 100 do
  8.     k := 0;
  9.  writeln(wallclock)
  10. end.
  11.