pkg/ecl/errtest/recur0.cl


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

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

procedure recurs0 (level)

int	level

begin
	j = level + 1
	if (level == 0)
	    recursion (j)
	else
	    sfpe ()
end