pkg/ecl/errtest/nested.cl


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

#{  NESTED -- Test error types from nested scripts.

procedure nested (type)

int	type			{ prompt = "Error test code: " 	}

begin
	# dummy space
	# dummy space

	nest0 (type)
end