//## Complex Complex.catanl(); static KMETHOD Complex_catanl(KonohaContext *kctx, KonohaStack *sfp) { kComplex *kc = (kComplex *) sfp[0].asObject; long double _Complex zl = (long double _Complex)kc->z; long double ret = catanl(zl); KReturnFloatValue(ret); }
long double complex catanhl(long double complex z) { long double complex w; w = -1.0L * I * catanl(z * I); return (w); }
//## Complex Complex.catanl(); static KMETHOD Complex_catanl(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 = catanl(zl); #else long double ret = catan(zl); #endif KReturnFloatValue(ret); }
long double complex catanhl (long double complex Z) { long double complex Tmp; long double complex Res; __real__ Tmp = - __imag__ Z; __imag__ Tmp = __real__ Z; Tmp = catanl (Tmp); __real__ Res = __imag__ Tmp; __imag__ Res = - __real__ Tmp; return Res; }
ldcomplex catanhl(ldcomplex z) { long double x, y; ldcomplex ans, ct; x = LD_RE(z); y = LD_IM(z); LD_RE(z) = -y; LD_IM(z) = x; ct = catanl(z); LD_RE(ans) = LD_IM(ct); LD_IM(ans) = -LD_RE(ct); return (ans); }
long double complex catanhl(long double complex z) { z = catanl(CMPLXL(-cimagl(z), creall(z))); return CMPLXL(cimagl(z), -creall(z)); }
float complex f = I; double complex d = I; long double complex ld = I; TEST_RESOLVED(MIPS, "http://ellcc.org/bugzilla/show_bug.cgi?id=59") { 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);