138032Speter#include "libm.h"
238032Speter
364562Sgshapiro#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
464562Sgshapirolong double complex ctanl(long double complex z)
538032Speter{
638032Speter	return ctan(z);
738032Speter}
838032Speter#else
938032Speterlong double complex ctanl(long double complex z)
1038032Speter{
1138032Speter	z = ctanhl(CMPLXL(-cimagl(z), creall(z)));
1238032Speter	return CMPLXL(cimagl(z), -creall(z));
1338032Speter}
1438032Speter#endif
1538032Speter