1 files changed, 14 insertions, 0 deletions
diff --git a/lib/libm/ctanhl.c b/lib/libm/ctanhl.c
new file mode 100644
index 00000000..9b798080
--- /dev/null
+++ b/lib/libm/ctanhl.c
@@ -0,0 +1,14 @@
+#include <math.h>
+#include <complex.h>
+
+long double complex ctanhl(long double complex z)
+{
+	long double x, y, d;
+
+	x = creall(z);
+	y = cimagl(z);
+	d = coshl(2.0L * x) + cosl(2.0L * y);
+
+	return sinhl(2.0L * x) / d +
+	       (sinl(2.0L * y) / d) * (long double complex)I;
+}