~mingw-w64/mingw-w64/experimental

__FLT_TYPE __complex__ __cdecl

__FLT_ABI(ccosh) (__FLT_TYPE __complex__ z)

{

  __complex__ __FLT_TYPE ret;

  __FLT_TYPE s_x, c_x;

  int r_class = fpclassify (__real__ z);

  int i_class = fpclassify (__imag__ z);

 

  if (r_class == FP_NAN)

  {

    __real__ ret = __FLT_NAN;

    __imag__ ret = __imag__ z == __FLT_CST(0.0) ? __imag__ z : __FLT_NAN;

    return ret;

  }

 

  if (r_class == FP_INFINITE)

  {

    if (i_class == FP_ZERO)

    {

      __real__ ret = __FLT_HUGE_VAL;

      __imag__ ret = __imag__ z * __FLT_ABI(copysign) (__FLT_CST(1.0), __real__ z);

      return ret;

    }

 

    if (i_class == FP_NAN || i_class == FP_INFINITE)

    {

      __real__ ret = __FLT_HUGE_VAL;

      __imag__ ret = __FLT_NAN + __FLT_NAN;

      return ret;

    }

 

    __FLT_ABI(sincos) (__imag__ z, &s_x, &c_x);

 

    __real__ ret = __FLT_ABI(copysign) (__FLT_HUGE_VAL, c_x);

    __imag__ ret = (__FLT_ABI(copysign) (__FLT_HUGE_VAL, s_x) * __FLT_ABI(copysign) (__FLT_CST(1.0), __real__ z));

    return ret;

  }

 

  if (i_class == FP_NAN || i_class == FP_INFINITE)

  {

    __imag__ ret = __real__ z == __FLT_CST(0.0) ? __FLT_CST(0.0) : __FLT_NAN;

    __real__ ret = __FLT_NAN + __FLT_NAN;

    return ret;

  }

 

  __FLT_ABI(sincos) (__imag__ z, &s_x, &c_x);

 

  __real__ ret = __FLT_ABI(cosh) (__real__ z) * c_x;

  __imag__ ret = __FLT_ABI(sinh) (__real__ z) * s_x;

  return ret;

}