summaryrefslogtreecommitdiff
path: root/lib/libm/complex/creal.c
blob: c51d3562ec2c1235d3c09585957b30a4138f49b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
/* $NetBSD: creal.c,v 1.1 2007/08/20 16:01:36 drochner Exp $ */

/*
 * Written by Matthias Drochner <drochner@NetBSD.org>.
 * Public domain.
 */

#include <complex.h>

double
creal(double complex z)
{

	return __real__ z;
}