creal.c revision 1.1 
11.1Sdrochner/* $NetBSD: creal.c,v 1.1 2007/08/20 16:01:36 drochner Exp $ */
21.1Sdrochner
31.1Sdrochner/*
41.1Sdrochner * Written by Matthias Drochner <drochner@NetBSD.org>.
51.1Sdrochner * Public domain.
61.1Sdrochner */
71.1Sdrochner
81.1Sdrochner#include <complex.h>
91.1Sdrochner
101.1Sdrochnerdouble
111.1Sdrochnercreal(double complex z)
121.1Sdrochner{
131.1Sdrochner
141.1Sdrochner	return __real__ z;
151.1Sdrochner}
16