creal.c raw

   1  #include <complex.h>
   2  
   3  double (creal)(double complex z)
   4  {
   5  	return creal(z);
   6  }
   7