1 /* $NetBSD: creal.c,v 1.1 2007/08/20 16:01:36 drochner Exp $ */ 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 } 16