newlib/libm/complex/cargl.c

   1 /* $NetBSD: cargl.c,v 1.1 2014/10/10 00:48:18 christos Exp $ */
   2
   3 /*
   4  * Public domain.
   5  */
   6
   7 #include <complex.h>
   8 #include <math.h>
   9
  10 /* On platforms where long double is as wide as double.  */
  11 #ifdef _LDBL_EQ_DBL
  12 long double
  13 cargl(long double complex z)
  14 {
  15          return carg (z);
  16 }
  17 #endif