all: prefer https: URLs
[gnulib.git] / tests / test-exp2l.c
blobca63201b06fe3645f3a13a479faa1a2763057ef1
1 /* Test of exp2l() function.
2 Copyright (C) 2010-2017 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <https://www.gnu.org/licenses/>. */
17 /* Written by Bruno Haible <bruno@clisp.org>, 2010. */
19 #include <config.h>
21 #include <math.h>
23 #include "signature.h"
24 SIGNATURE_CHECK (exp2l, long double, (long double));
26 #include <float.h>
28 #include "fpucw.h"
29 #include "macros.h"
31 #define DOUBLE long double
32 #define L_(literal) literal##L
33 #define MANT_DIG LDBL_MANT_DIG
34 #define MAX_EXP LDBL_MAX_EXP
35 #define MIN_EXP LDBL_MIN_EXP
36 #define EXP2 exp2l
37 #define RANDOM randoml
38 #include "test-exp2.h"
40 int
41 main ()
43 DECL_LONG_DOUBLE_ROUNDING
45 BEGIN_LONG_DOUBLE_ROUNDING ();
47 /* A particular value. */
48 x = 0.6L;
49 y = exp2l (x);
50 ASSERT (y >= 1.515716566L && y <= 1.515716567L);
52 test_function ();
54 return 0;