pkg/bench/fortask.cl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# FORTASK -- Execute a foreign task repeatedly.

procedure fortask (nreps)

int	nreps		{ prompt = "number of repetitions" }
int	i

begin
	time; print ("======= begin ========")

	for (i=nreps;  i > 0;  i-=1)
	    !rmbin

	print ("=======  end  ========"); time
end