xref: /netbsd-src/lib/libm/complex/crealf.c (revision e2a86dd3c762a96a961865112d4d0ded4715375a) 
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 
8 #include <complex.h>
9 #include "../src/math_private.h"
10 
11 float
crealf(float complex z)12 crealf(float complex z)
13 {
14 	float_complex w = { .z = z };
15 
16 	return (REAL_PART(w));
17 }
18