1  /*
       2   * Public domain.
       3   *
       4   */
       5  
       6  #include <libm-alias-ldouble.h>
       7  
       8  long double
       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)