newlib-cygwin/winsup/mingw/mingwex/complex/cabsl.c

8 lines
131 B
C
Executable File

#include <math.h>
#include <complex.h>
long double cabsl (long double complex Z)
{
return hypotl ( __real__ Z, __imag__ Z);
}