//## 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);
