#include <stdio.h>
#include <complex.h>
#include <math.h>
#include <float.h>

int main (void)
{
  {
    complex float z = 50000.0 + 50000.0*I;
    complex float t = ctanhf(z);
    printf("Expect: 1 0\tGot: %g %g\n", crealf(t), cimagf(t)) ;
  }

  {
    complex double z = 50000.0 + 50000.0*I;
    complex double t = ctanh(z);
    printf("Expect: 1 0\tGot: %g %g\n", creal(t), cimag(t)) ;
  }

  {
    complex long double z = 50000.0L + 50000.0L*I;
    complex long double t = ctanhl(z);
    printf("Expect: 1 0\tGot: %Lg %Lg\n", creall(t), cimagl(t)) ;
  }

  {
    complex float z = -50000.0 + 50000.0*I;
    complex float t = ctanhf(z);
    printf("Expect: -1 0\tGot: %g %g\n", crealf(t), cimagf(t)) ;
  }

  {
    complex double z = -50000.0 + 50000.0*I;
    complex double t = ctanh(z);
    printf("Expect: -1 0\tGot: %g %g\n", creal(t), cimag(t)) ;
  }

  {
    complex long double z = -50000.0L + 50000.0L*I;
    complex long double t = ctanhl(z);
    printf("Expect: -1 0\tGot: %Lg %Lg\n", creall(t), cimagl(t)) ;
  }

  return 0;
}