projects
/
gnulib.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'upstream'
[gnulib.git]
/
tests
/
test-ldexpl.c
diff --git
a/tests/test-ldexpl.c
b/tests/test-ldexpl.c
index
272fc4f
..
5f1fbd9
100644
(file)
--- a/
tests/test-ldexpl.c
+++ b/
tests/test-ldexpl.c
@@
-1,5
+1,5
@@
/* Test of multiplying a 'long double' by a power of 2.
/* Test of multiplying a 'long double' by a power of 2.
- Copyright (C) 2007-200
8
Free Software Foundation, Inc.
+ Copyright (C) 2007-200
9
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
@@
-26,6
+26,7
@@
#include "fpucw.h"
#include "isnanl-nolibm.h"
#include "fpucw.h"
#include "isnanl-nolibm.h"
+#include "nan.h"
#define ASSERT(expr) \
do \
#define ASSERT(expr) \
do \
@@
-41,10
+42,16
@@
/* On HP-UX 10.20, negating 0.0L does not yield -0.0L.
So we use minus_zero instead.
/* On HP-UX 10.20, negating 0.0L does not yield -0.0L.
So we use minus_zero instead.
+ IRIX cc can't put -0.0L into .data, but can compute at runtime.
Note that the expression -LDBL_MIN * LDBL_MIN does not work on other
platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */
#if defined __hpux || defined __sgi
Note that the expression -LDBL_MIN * LDBL_MIN does not work on other
platforms, such as when cross-compiling to PowerPC on MacOS X 10.5. */
#if defined __hpux || defined __sgi
-long double minus_zero = -LDBL_MIN * LDBL_MIN;
+static long double
+compute_minus_zero (void)
+{
+ return -LDBL_MIN * LDBL_MIN;
+}
+# define minus_zero compute_minus_zero ()
#else
long double minus_zero = -0.0L;
#endif
#else
long double minus_zero = -0.0L;
#endif
@@
-60,7
+67,7
@@
main ()
BEGIN_LONG_DOUBLE_ROUNDING ();
{ /* NaN. */
BEGIN_LONG_DOUBLE_ROUNDING ();
{ /* NaN. */
- x =
0.0L / 0.0L
;
+ x =
NaNl ()
;
y = ldexpl (x, 0); ASSERT (isnanl (y));
y = ldexpl (x, 5); ASSERT (isnanl (y));
y = ldexpl (x, -5); ASSERT (isnanl (y));
y = ldexpl (x, 0); ASSERT (isnanl (y));
y = ldexpl (x, 5); ASSERT (isnanl (y));
y = ldexpl (x, -5); ASSERT (isnanl (y));