copysign
double copysign(double, double);
#define copysign(x, y) __tg_simple2(x, y, copysign)
PROTO_NORMAL(copysign);
k = z + copysign(.5, x);
DEF_STD(copysign);
LDBL_MAYBE_CLONE(copysign);
__imag__ res = copysign(0.0, __imag__ z);
w = 0.0 + copysign(r, y) * I;
w = 0.0f + copysign(sqrtf(-x), y) * I;
w = 0.0L + copysign(sqrtl(-x), y) * I;
p = ldexp(copysign(0x1p-1022, r), -spread);
return huge*copysign(huge,x); /*overflow*/
else return tiny*copysign(tiny,x); /*underflow*/
if (!isinf(d) || copysign(1.0, d) < 0.0)
if (!isinf(d) || copysign(1.0, d) < 0.0)
if (!isinf(d) || copysign(1.0, d) > 0.0)
if (!isinf(d) || copysign(1.0, d) > 0.0)
e = copysign(1.0, d);
copysign(0, cos(nums[i]))), DBL_ULP());
-copysign(0, sin(nums[i]))), DBL_ULP());
copysign(0, cosf(nums[i]))), FLT_ULP());
-copysign(0, sinf(nums[i]))), 2 * FLT_ULP());
test_odd_tol(csinh, z, CMPLXL(copysign(0, cos(nums[i])),
copysign(0, sin(nums[i]))), DBL_ULP());
test_odd_tol(csinhf, z, CMPLXL(copysign(0, cosf(nums[i])),
copysign(0, sinf(nums[i]))), FLT_ULP());
if (copysign(1.0, d) < 0.0)
CMPLXL(copysign(pi / 2, nums[i]),
test##prec(copysign##prec(1.0, nextafter##prec(0.0, -0.0)), -1.0, 0); \
test##prec(copysign##prec(1.0, nextafter##prec(-0.0, 0.0)), 1.0, 0); \
test##prec(copysign##prec(1.0, nexttoward##prec(0.0, -0.0)), -1.0, 0);\
test##prec(copysign##prec(1.0, nexttoward##prec(-0.0, 0.0)), 1.0, 0)