catan
double complex catan(double complex);
PROTO_NORMAL(catan);
DEF_STD(catan);
LDBL_MAYBE_CLONE(catan);
w = -1.0 * I * catan (z * I);
testall_odd(catan, zero, zero, ALL_STD_EXCEPT, 0, CS_BOTH);
testall(catan, z, nan_nan, ALL_STD_EXCEPT, 0, 0);
testall(catan, z, nan_nan, OPT_INVALID, 0, 0);
testall(catan, z, nan_nan, OPT_INVALID, 0, 0);
testall(catan, z, CMPLXL(NAN, 0.0), ALL_STD_EXCEPT, 0, CS_IMAG);
testall_odd_tol(catan, z, CMPLXL(pi / 2, 0.0), 1);
testall_odd(catan, z, nan_nan, OPT_INVALID, 0, 0);
testall(catan, z, CMPLXL(NAN, 0.0), ALL_STD_EXCEPT, 0, 0);
testall_odd_tol(catan, z, CMPLXL(pi / 2, 0), 1);
testall_odd_tol(catan, z, CMPLXL(pi / 2, 0), 1);
testall_odd_tol(catan, z, CMPLXL(pi / 2, 0), 1);
testall_tol(catan, z, CMPLXL(atan(nums[i]), 0), 1);
testall_odd_tol(catan, z, atan_z, 2);