lib/msun/test-ctrig.c

294 	static const long double nums[] = {
301 	for (i = 0; i < sizeof(nums) / sizeof(nums[0]); i++) {
303 		z = CMPLXL(nums[i], 0.0);
304 		test_odd_tol(csinh, z, CMPLXL(sinh(nums[i]), 0), DBL_ULP());
305 		test_even_tol(ccosh, z, CMPLXL(cosh(nums[i]), 0), DBL_ULP());
306 		test_odd_tol(ctanh, z, CMPLXL(tanh(nums[i]), 0), DBL_ULP());
307 		test_odd_tol(csin, z, CMPLXL(sin(nums[i]),
308 		    copysign(0, cos(nums[i]))), DBL_ULP());
309 		test_even_tol(ccos, z, CMPLXL(cos(nums[i]),
310 		    -copysign(0, sin(nums[i]))), DBL_ULP());
311 		test_odd_tol(ctan, z, CMPLXL(tan(nums[i]), 0), DBL_ULP());
313 		test_odd_tol(csinhf, z, CMPLXL(sinhf(nums[i]), 0), FLT_ULP());
314 		test_even_tol(ccoshf, z, CMPLXL(coshf(nums[i]), 0), FLT_ULP());
317 		printf("%a\n", nextafterf(tanhf(nums[i]), INFINITY));
318 		test_odd_tol(ctanhf, z, CMPLXL(tanhf(nums[i]), 0),
320 		test_odd_tol(csinf, z, CMPLXL(sinf(nums[i]),
321 		    copysign(0, cosf(nums[i]))), FLT_ULP());
322 		test_even_tol(ccosf, z, CMPLXL(cosf(nums[i]),
323 		    -copysign(0, sinf(nums[i]))), 2 * FLT_ULP());
324 		test_odd_tol(ctanf, z, CMPLXL(tanf(nums[i]), 0), FLT_ULP());
327 		z = CMPLXL(0.0, nums[i]);
328 		test_odd_tol(csinh, z, CMPLXL(copysign(0, cos(nums[i])),
329 						 sin(nums[i])), DBL_ULP());
330 		test_even_tol(ccosh, z, CMPLXL(cos(nums[i]),
331 		    copysign(0, sin(nums[i]))), DBL_ULP());
332 		test_odd_tol(ctanh, z, CMPLXL(0, tan(nums[i])), DBL_ULP());
333 		test_odd_tol(csin, z, CMPLXL(0, sinh(nums[i])), DBL_ULP());
334 		test_even_tol(ccos, z, CMPLXL(cosh(nums[i]), -0.0), DBL_ULP());
335 		test_odd_tol(ctan, z, CMPLXL(0, tanh(nums[i])), DBL_ULP());
337 		test_odd_tol(csinhf, z, CMPLXL(copysign(0, cosf(nums[i])),
338 						 sinf(nums[i])), FLT_ULP());
339 		test_even_tol(ccoshf, z, CMPLXL(cosf(nums[i]),
340 		    copysign(0, sinf(nums[i]))), FLT_ULP());
341 		test_odd_tol(ctanhf, z, CMPLXL(0, tanf(nums[i])), FLT_ULP());
342 		test_odd_tol(csinf, z, CMPLXL(0, sinhf(nums[i])), FLT_ULP());
343 		test_even_tol(ccosf, z, CMPLXL(coshf(nums[i]), -0.0),
345 		test_odd_tol(ctanf, z, CMPLXL(0, tanhf(nums[i])),