copysignl
long double copysignl(long double, long double);
LDBL_PROTO_NORMAL(copysignl);
DEF_STD(copysignl);
__imag__ res = copysignl(0.0, __imag__ z);
p = ldexpl(copysignl(0x1p-16382L, r), -spread);
if (k >= 0x7fff) return huge*copysignl(huge,x); /* overflow */
CMPLXL(0.0, copysignl(INFINITY, vals[i])));
CMPLXL(INFINITY, copysignl(0.0, vals[i])));