//## Complex Complex.ccosl(); static KMETHOD Complex_ccosl(KonohaContext *kctx, KonohaStack *sfp) { kComplex *kc = (kComplex *) sfp[0].asObject; long double _Complex zl = (long double _Complex)kc->z; long double ret = ccosl(zl); KReturnFloatValue(ret); }
//## Complex Complex.ccosl(); static KMETHOD Complex_ccosl(KonohaContext *kctx, KonohaStack *sfp) { kComplex *kc = (kComplex *) sfp[0].asObject; long double _Complex zl = (long double _Complex)kc->z; #if !defined(__CYGWIN__) long double ret = ccosl(zl); #else long double ret = ccos(zl); #endif KReturnFloatValue(ret); }
void test3l(__complex__ long double x, __complex__ long double y, int i) { if (ccosl(x) != ccosl(-x)) link_error(); if (ccosl(ctanl(x)) != ccosl(ctanl(-x))) link_error(); if (ctanl(x-y) != -ctanl(y-x)) link_error(); if (ccosl(x/y) != ccosl(-x/y)) link_error(); if (ccosl(x/y) != ccosl(x/-y)) link_error(); if (ccosl(x/ctanl(y)) != ccosl(-x/ctanl(-y))) link_error(); if (ccosl(x*y) != ccosl(-x*y)) link_error(); if (ccosl(x*y) != ccosl(x*-y)) link_error(); if (ccosl(ctanl(x)*y) != ccosl(ctanl(-x)*-y)) link_error(); if (ccosl(ctanl(x/y)) != ccosl(-ctanl(x/-y))) link_error(); if (ccosl(i ? x : y) != ccosl(i ? -x : y)) link_error(); if (ccosl(i ? x : y) != ccosl(i ? x : -y)) link_error(); if (ccosl(i ? x : ctanl(y/x)) != ccosl(i ? -x : -ctanl(-y/x))) link_error(); if (~x != -~-x) link_error(); if (ccosl(~x) != ccosl(-~-x)) link_error(); if (ctanl(~(x-y)) != -ctanl(~(y-x))) link_error(); if (ctanl(~(x/y)) != -ctanl(~(x/-y))) link_error(); #ifdef HAVE_C99_RUNTIME if (cargl(x) != atan2l(__imag__ x, __real__ x)) link_error (); #endif }
void test2l(long double x, long double y) { if (-tanl(x-y) != tanl(y-x)) link_error (); if (-sinl(x-y) != sinl(y-x)) link_error (); if (cosl(-x*y) != cosl(x*y)) link_error (); if (cosl(x*-y) != cosl(x*y)) link_error (); if (cosl(-x/y) != cosl(x/y)) link_error (); if (cosl(x/-y) != cosl(x/y)) link_error (); if (cosl(-fabsl(tanl(x/-y))) != cosl(tanl(x/y))) link_error (); if (cosl(y<10 ? -x : y) != cosl(y<10 ? x : y)) link_error (); if (cosl(y<10 ? x : -y) != cosl(y<10 ? x : y)) link_error (); if (cosl(y<10 ? -fabsl(x) : tanl(x<20 ? -x : -fabsl(y))) != cosl(y<10 ? x : tanl(x<20 ? x : y))) link_error (); if (cosl((y*=3, -x)) != cosl((y*=3,x))) link_error (); if (cosl((y*=2, -fabsl(tanl(x/-y)))) != cosl((y*=2,tanl(x/y)))) link_error (); if (cosl(copysignl(x,y)) != cosl(x)) link_error (); if (cosl(copysignl(-fabsl(x),y*=2)) != cosl((y*=2,x))) link_error (); if (hypotl (x, 0) != fabsl(x)) link_error (); if (hypotl (0, x) != fabsl(x)) link_error (); if (hypotl (x, x) != fabsl(x) * __builtin_sqrtl(2)) link_error (); if (hypotl (-x, y) != hypotl (x, y)) link_error (); if (hypotl (x, -y) != hypotl (x, y)) link_error (); if (hypotl (-x, -y) != hypotl (x, y)) link_error (); if (hypotl (fabsl(x), y) != hypotl (x, y)) link_error (); if (hypotl (x, fabsl(y)) != hypotl (x, y)) link_error (); if (hypotl (fabsl(x), fabsl(y)) != hypotl (x, y)) link_error (); if (hypotl (-fabsl(-x), -fabsl(fabsl(fabsl(-y)))) != hypotl (x, y)) link_error (); if (hypotl (-x, 0) != fabsl(x)) link_error (); if (hypotl (-x, x) != fabsl(x) * __builtin_sqrtl(2)) link_error (); if (hypotl (purel(x), -purel(x)) != fabsl(purel(x)) * __builtin_sqrtl(2)) link_error (); if (hypotl (tanl(-x), tanl(-fabsl(y))) != hypotl (tanl(x), tanl(y))) link_error (); if (fminl (fmaxl(x,y),y) != y) link_error (); if (fminl (fmaxl(y,x),y) != y) link_error (); if (fminl (x,fmaxl(x,y)) != x) link_error (); if (fminl (x,fmaxl(y,x)) != x) link_error (); if (fmaxl (fminl(x,y),y) != y) link_error (); if (fmaxl (fminl(y,x),y) != y) link_error (); if (fmaxl (x,fminl(x,y)) != x) link_error (); if (fmaxl (x,fminl(y,x)) != x) link_error (); if ((__complex__ long double) x != -(__complex__ long double) (-x)) link_error (); if (x+(x-y)*1i != -(-x+(y-x)*1i)) link_error (); if (x+(x-y)*1i != -(-x-(x-y)*1i)) link_error (); if (ccosl(tanl(x)+sinl(y)*1i) != ccosl(-tanl(-x)+-sinl(-y)*1i)) link_error (); if (ccosl(tanl(x)+sinl(x-y)*1i) != ccosl(-tanl(-x)-sinl(y-x)*1i)) link_error (); if (-5+x*1i != -~(5+x*1i)) link_error (); if (tanl(x)+tanl(y)*1i != -~(tanl(-x)+tanl(y)*1i)) link_error (); }
TEST_TRACE(C99 7.3.5.1) d = cacos(d); f = cacosf(f); ld = cacosl(ld); TEST_TRACE(C99 7.3.5.2) d = casin(d); f = casinf(f); ld = casinl(ld); TEST_TRACE(C99 7.3.5.3) d = catan(d); f = catanf(f); ld = catanl(ld); TEST_TRACE(C99 7.3.5.4) d = ccos(d); f = ccosf(f); ld = ccosl(ld); TEST_TRACE(C99 7.3.5.5) d = csin(d); f = csinf(f); ld = csinl(ld); TEST_TRACE(C99 7.3.5.6) d = ctan(d); f = ctanf(f); ld = ctanl(ld); TEST_TRACE(C99 7.3.6.1) d = cacosh(d); f = cacoshf(f); ld = cacoshl(ld); TEST_TRACE(C99 7.3.6.2) d = casinh(d); f = casinhf(f);