1 /* $NetBSD: cimagf.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
cimagf(float complex z)15 cimagf(float complex z)
16 {
17 	float_complex w = { .z = z };
18 
19 	return (IMAG_PART(w));
20 }
21