11.2Schristos/* $NetBSD: creal.c,v 1.2 2010/09/15 16:11:29 christos 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.2Schristos#include "../src/math_private.h"
101.1Sdrochner
111.1Sdrochnerdouble
121.1Sdrochnercreal(double complex z)
131.1Sdrochner{
141.2Schristos	double_complex w = { .z = z };
151.1Sdrochner
161.2Schristos	return (REAL_PART(w));
171.1Sdrochner}
18