1 /* Copyright (C) 2015 by  Red Hat, Incorporated. All rights reserved.
2  *
3  * Permission to use, copy, modify, and distribute this software
4  * is freely granted, provided that this notice is preserved.
5  */
6 
7 #include <complex.h>
8 #include "../common/fdlibm.h"
9 
10 long double
creall(long double complex z)11 creall (long double complex z)
12 {
13   long_double_complex w = { .z = z };
14 
15   return (REAL_PART(w));
16 }
17