]> git.ipfire.org Git - thirdparty/glibc.git/blame - math/test-powl.c
Use <> for include of kernel-features.h.
[thirdparty/glibc.git] / math / test-powl.c
CommitLineData
8db73634
L
1/* Test for powl
2 Copyright (C) 2011 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18 02111-1307 USA. */
19
20#include <stdio.h>
21#include <math.h>
22#include <float.h>
23#include <ieee754.h>
24
25int
26main (void)
27{
28 int result = 0;
29
30#ifndef NO_LONG_DOUBLE
31# if LDBL_MANT_DIG == 64
32 {
33 long double x = 1e-20;
34 union ieee854_long_double u;
35 u.ieee.mantissa0 = 1;
36 u.ieee.mantissa1 = 1;
37 u.ieee.exponent = 0;
38 u.ieee.negative = 0;
39 (void) powl (0.2, u.d);
40 x = powl (x, 1.5);
f5f312eb 41 if (fabsl (x - 1e-30) > 1e-10)
8db73634
L
42 {
43 printf ("powl (1e-20, 1.5): wrong result: %Lg\n", x);
44 result = 1;
45 }
46 }
47# endif
48#endif
49
50 return result;
51}