/*

 * Written by J.T. Conklin <jtc@netbsd.org>.

 * Public domain.

 *

 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.

 */

#include <math_private.h>

#include <libm-alias-ldouble.h>

long double

__atanl (long double x)

{

  long double res;

  asm ("fld1\n"

       "fpatan"

       : "=t" (res) : "0" (x));

  return res;

}

libm_alias_ldouble (__atan, atan)