newlib/libm/complex/crealf.c

   1 /* $NetBSD: crealf.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */
   2
   3 /*
   4  * Written by Matthias Drochner <drochner@NetBSD.org>.
   5  * Public domain.
   6  *
   7  * imported and modified include for newlib 2010/10/03
   8  * Marco Atzeri <marco_atzeri@yahoo.it>
   9  */
  10
  11 #include <complex.h>
  12 #include "../common/fdlibm.h"
  13
  14 float
  15 crealf(float complex z)
  16 {
  17         float_complex w = { .z = z };
  18
  19         return (REAL_PART(w));
  20 }