pkg/ecl/errtest/recursion.cl


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

#{ RECURSION.CL -- Test CL calling recursion.

procedure recursion (level)

int	level

begin
	if (level == 0)
	    i = 0
	else
	    i = level
	recur0 (i)
end