1 /*
2  * Public domain.
3  *
4  */
5 
6 #include <libm-alias-ldouble.h>
7 
8 long double
__atanl(long double x)9 __atanl (long double x)
10 {
11   long double res;
12 
13   asm ("fld1\n"
14        "fpatan"
15        : "=t" (res) : "0" (x));
16 
17   return res;
18 }
19 
20 libm_alias_ldouble (__atan, atan)
21