projects
/
gnulib.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gnulib-tool: Improve usage message.
[gnulib.git]
/
tests
/
test-roundl.c
diff --git
a/tests/test-roundl.c
b/tests/test-roundl.c
index
552d4f5
..
c6ad611
100644
(file)
--- a/
tests/test-roundl.c
+++ b/
tests/test-roundl.c
@@
-1,9
+1,9
@@
/* Test of rounding to nearest, breaking ties away from zero.
/* Test of rounding to nearest, breaking ties away from zero.
- Copyright (C) 2007-20
08
Free Software Foundation, Inc.
+ Copyright (C) 2007-20
12
Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version
2
, or (at your option)
+ the Free Software Foundation; either version
3
, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
any later version.
This program is distributed in the hope that it will be useful,
@@
-12,8
+12,7
@@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
+ along with this program; if not, see <http://www.gnu.org/licenses/>. */
/* Written by Ben Pfaff <blp@gnu.org>, 2007.
Based heavily on Bruno Haible's test-truncl.c. */
/* Written by Ben Pfaff <blp@gnu.org>, 2007.
Based heavily on Bruno Haible's test-truncl.c. */
@@
-22,23
+21,17
@@
#include <math.h>
#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
+#include "signature.h"
+SIGNATURE_CHECK (roundl, long double, (long double));
+
+#include <float.h>
#include "fpucw.h"
#include "isnanl-nolibm.h"
#include "fpucw.h"
#include "isnanl-nolibm.h"
-
-#define ASSERT(expr) \
- do \
- { \
- if (!(expr)) \
- { \
- fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \
- fflush (stderr); \
- abort (); \
- } \
- } \
- while (0)
+#include "minus-zero.h"
+#include "infinity.h"
+#include "nan.h"
+#include "macros.h"
int
main ()
int
main ()
@@
-49,7
+42,7
@@
main ()
/* Zero. */
ASSERT (roundl (0.0L) == 0.0L);
/* Zero. */
ASSERT (roundl (0.0L) == 0.0L);
- ASSERT (roundl (
-0.0L
) == 0.0L);
+ ASSERT (roundl (
minus_zerol
) == 0.0L);
/* Positive numbers. */
ASSERT (roundl (0.3L) == 0.0L);
ASSERT (roundl (0.5L) == 1.0L);
/* Positive numbers. */
ASSERT (roundl (0.3L) == 0.0L);
ASSERT (roundl (0.5L) == 1.0L);
@@
-77,10
+70,10
@@
main ()
ASSERT (roundl (-65536.001L) == -65536.0L);
ASSERT (roundl (-2.341e31L) == -2.341e31L);
/* Infinite numbers. */
ASSERT (roundl (-65536.001L) == -65536.0L);
ASSERT (roundl (-2.341e31L) == -2.341e31L);
/* Infinite numbers. */
- ASSERT (roundl (
1.0 / 0.0L) == 1.0 / 0.0L
);
- ASSERT (roundl (-
1.0 / 0.0L) == -1.0 / 0.0L
);
+ ASSERT (roundl (
Infinityl ()) == Infinityl ()
);
+ ASSERT (roundl (-
Infinityl ()) == - Infinityl ()
);
/* NaNs. */
/* NaNs. */
- ASSERT (isnanl (roundl (
0.0L / 0.0L
)));
+ ASSERT (isnanl (roundl (
NaNl ()
)));
return 0;
}
return 0;
}