Mercurial > gnulib
annotate tests/test-rintf.c @ 40057:b06060465f09
maint: Run 'make update-copyright'
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Tue, 01 Jan 2019 00:25:11 +0100 |
parents | 10eb9086bea0 |
children |
rev | line source |
---|---|
15919 | 1 /* Test of rintf() function. |
40057
b06060465f09
maint: Run 'make update-copyright'
Paul Eggert <eggert@cs.ucla.edu>
parents:
19484
diff
changeset
|
2 Copyright (C) 2010-2019 Free Software Foundation, Inc. |
15919 | 3 |
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. | |
8 | |
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. | |
13 | |
14 You should have received a copy of the GNU General Public License | |
19190 | 15 along with this program. If not, see <https://www.gnu.org/licenses/>. */ |
15919 | 16 |
17 /* Written by Bruno Haible <bruno@clisp.org>, 2010. */ | |
18 | |
19 #include <config.h> | |
20 | |
21 #include <math.h> | |
22 | |
23 #include "signature.h" | |
24 SIGNATURE_CHECK (rintf, float, (float)); | |
25 | |
26 #include <float.h> | |
27 #include <stdio.h> | |
28 | |
29 #include "isnanf-nolibm.h" | |
30 #include "minus-zero.h" | |
31 #include "infinity.h" | |
32 #include "nan.h" | |
33 #include "macros.h" | |
34 | |
16797
c4a7dd5a1c2c
rint* tests: Avoid gcc warnings.
Bruno Haible <bruno@clisp.org>
parents:
16563
diff
changeset
|
35 #undef INFINITY |
c4a7dd5a1c2c
rint* tests: Avoid gcc warnings.
Bruno Haible <bruno@clisp.org>
parents:
16563
diff
changeset
|
36 #undef NAN |
c4a7dd5a1c2c
rint* tests: Avoid gcc warnings.
Bruno Haible <bruno@clisp.org>
parents:
16563
diff
changeset
|
37 |
16563 | 38 #define DOUBLE float |
39 #define ISNAN isnanf | |
40 #define INFINITY Infinityf () | |
41 #define NAN NaNf () | |
42 #define L_(literal) literal##f | |
43 #define RINT rintf | |
44 #define RANDOM randomf | |
45 #include "test-rint.h" | |
46 | |
15919 | 47 int |
48 main () | |
49 { | |
50 /* Consider the current rounding mode, cf. | |
51 <http://pubs.opengroup.org/onlinepubs/9699919799/basedefs/float.h.html> */ | |
52 if (FLT_ROUNDS == 1) | |
53 { | |
54 /* The current rounding mode is round-to-nearest | |
55 (the default in IEEE 754). */ | |
56 | |
57 /* Zero. */ | |
58 ASSERT (rintf (0.0f) == 0.0f); | |
59 ASSERT (rintf (minus_zerof) == 0.0f); | |
60 /* Positive numbers. */ | |
61 ASSERT (rintf (0.3f) == 0.0f); | |
62 ASSERT (rintf (0.5f) == 0.0f); /* unlike roundf() */ | |
63 ASSERT (rintf (0.7f) == 1.0f); | |
64 ASSERT (rintf (1.0f) == 1.0f); | |
65 ASSERT (rintf (1.5f) == 2.0f); | |
66 ASSERT (rintf (1.999f) == 2.0f); | |
67 ASSERT (rintf (2.0f) == 2.0f); | |
68 ASSERT (rintf (2.1f) == 2.0f); | |
69 ASSERT (rintf (2.5f) == 2.0f); /* unlike roundf() */ | |
70 ASSERT (rintf (2.7f) == 3.0f); | |
71 ASSERT (rintf (65535.99f) == 65536.0f); | |
72 ASSERT (rintf (65536.0f) == 65536.0f); | |
73 ASSERT (rintf (65536.01f) == 65536.0f); | |
74 ASSERT (rintf (2.341e31f) == 2.341e31f); | |
75 /* Negative numbers. */ | |
76 ASSERT (rintf (-0.3f) == 0.0f); | |
77 ASSERT (rintf (-0.5f) == 0.0f); /* unlike roundf() */ | |
78 ASSERT (rintf (-0.7f) == -1.0f); | |
79 ASSERT (rintf (-1.0f) == -1.0f); | |
80 ASSERT (rintf (-1.5f) == -2.0f); | |
81 ASSERT (rintf (-1.999f) == -2.0f); | |
82 ASSERT (rintf (-2.0f) == -2.0f); | |
83 ASSERT (rintf (-2.1f) == -2.0f); | |
84 ASSERT (rintf (-2.5f) == -2.0f); /* unlike roundf() */ | |
85 ASSERT (rintf (-2.7f) == -3.0f); | |
86 ASSERT (rintf (-65535.99f) == -65536.0f); | |
87 ASSERT (rintf (-65536.0f) == -65536.0f); | |
88 ASSERT (rintf (-65536.01f) == -65536.0f); | |
89 ASSERT (rintf (-2.341e31f) == -2.341e31f); | |
16563 | 90 |
91 test_function (); | |
15919 | 92 |
93 return 0; | |
94 } | |
95 else | |
96 { | |
97 fputs ("Skipping test: non-standard rounding mode\n", stderr); | |
98 return 77; | |
99 } | |
100 } |