creal.c revision 1.1 
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
10double
11creal(double complex z)
12{
13
14	return __real__ z;
15}
16