summaryrefslogblamecommitdiff
path: root/src/complex/cimagl.c
blob: d9a0780caee2ff2d21661382cc9e9af479340285 (plain) (tree)
1
2
3
4
5
6
7






                                           
#include "libm.h"

long double (cimagl)(long double complex z)
{
	union lcomplex u = {z};
	return u.a[1];
}