Lines Matching refs:func
59 #define test_p(func, z, result, exceptmask, excepts, checksign) do { \
61 debug(" testing %s(%Lg + %Lg I) == %Lg + %Lg I\n", #func, \
64 assert(cfpequal_cs((func)(_d), (result), (checksign))); \
65 assert(((void)(func), fetestexcept(exceptmask) == (excepts))); \
73 #define test_p_tol(func, z, result, tol) do { \
75 debug(" testing %s(%Lg + %Lg I) ~= %Lg + %Lg I\n", #func, \
77 assert(cfpequal_tol((func)(_d), (result), (tol), FPE_ABS_ZERO)); \
81 #define test(func, z, result, exceptmask, excepts, checksign) do { \
82 test_p(func, z, result, exceptmask, excepts, checksign); \
83 test_p(func, conjl(z), conjl(result), exceptmask, excepts, checksign); \
85 #define test_tol(func, z, result, tol) do { \
86 test_p_tol(func, z, result, tol); \
87 test_p_tol(func, conjl(z), conjl(result), tol); \
89 #define test_odd_tol(func, z, result, tol) do { \
90 test_tol(func, z, result, tol); \
91 test_tol(func, -(z), -(result), tol); \
93 #define test_even_tol(func, z, result, tol) do { \
94 test_tol(func, z, result, tol); \
95 test_tol(func, -(z), result, tol); \
99 #define testall(func, x, result, exceptmask, excepts, checksign) do { \
100 test(func, x, result, exceptmask, excepts, checksign); \
101 test(func##f, x, result, exceptmask, excepts, checksign); \
103 #define testall_odd(func, x, result, exceptmask, excepts, checksign) do { \
104 testall(func, x, result, exceptmask, excepts, checksign); \
105 testall(func, -x, -result, exceptmask, excepts, checksign); \
107 #define testall_even(func, x, result, exceptmask, excepts, checksign) do { \
108 testall(func, x, result, exceptmask, excepts, checksign); \
109 testall(func, -x, result, exceptmask, excepts, checksign); \
116 #define testall_tol(func, x, result, tol) do { \
117 test_tol(func, x, result, tol * DBL_ULP()); \
118 test_tol(func##f, x, result, tol * FLT_ULP()); \
120 #define testall_odd_tol(func, x, result, tol) do { \
121 test_odd_tol(func, x, result, tol * DBL_ULP()); \
122 test_odd_tol(func##f, x, result, tol * FLT_ULP()); \
124 #define testall_even_tol(func, x, result, tol) do { \
125 test_even_tol(func, x, result, tol * DBL_ULP()); \
126 test_even_tol(func##f, x, result, tol * FLT_ULP()); \