/* Specification. */
#include <math.h>
+#if HAVE_SAME_LONG_DOUBLE_AS_DOUBLE
+
+long double
+tanl (long double x)
+{
+ return tan (x);
+}
+
+#else
+
+/* Code based on glibc/sysdeps/ieee754/ldbl-128/s_tanl.c
+ and glibc/sysdeps/ieee754/ldbl-128/k_tanl.c. */
+
/* tanl(x)
* Return tangent function of x.
*
* TRIG(x) returns trig(x) nearly rounded
*/
-#include "trigl.h"
+# include "trigl.h"
/*
* ====================================================
}
}
+#endif
+
#if 0
int
main (void)