lib/libm/complex/creal.c

   1 /* $NetBSD$ */
   2
   3 /*
   4  * Written by Matthias Drochner <drochner@NetBSD.org>.
   5  * Public domain.
   6  */
   7
   8 #include <complex.h>
   9
  10 double
  11 creal(double complex z)
  12 {
  13
  14         return __real__ z;
  15 }