diff options
Diffstat (limited to 'math/bug-nextafter.c')
| -rw-r--r-- | math/bug-nextafter.c | 255 |
1 files changed, 0 insertions, 255 deletions
diff --git a/math/bug-nextafter.c b/math/bug-nextafter.c index 1d21841ea6..2a967c75bf 100644 --- a/math/bug-nextafter.c +++ b/math/bug-nextafter.c @@ -4,9 +4,6 @@ #include <stdlib.h> #include <stdio.h> -float zero = 0.0; -float inf = INFINITY; - int main (void) { @@ -37,81 +34,6 @@ main (void) ++result; } - i = 0; - m = FLT_MIN; - feclearexcept (FE_ALL_EXCEPT); - i = nextafterf (m, i); - if (i < 0 || i >= FLT_MIN) - { - puts ("nextafterf+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterf+ did not underflow"); - ++result; - } - i = 0; - feclearexcept (FE_ALL_EXCEPT); - i = nextafterf (-m, -i); - if (i > 0 || i <= -FLT_MIN) - { - puts ("nextafterf- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterf- did not underflow"); - ++result; - } - i = -INFINITY; - feclearexcept (FE_ALL_EXCEPT); - m = nextafterf (zero, inf); - if (m < 0.0 || m >= FLT_MIN) - { - puts ("nextafterf+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterf+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafterf (m, i) != 0.0) - { - puts ("nextafterf+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterf+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - m = nextafterf (copysignf (zero, -1.0), -inf); - if (m > 0.0 || m <= -FLT_MIN) - { - puts ("nextafterf- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterf- did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafterf (m, -i) != 0.0) - { - puts ("nextafterf- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterf- did not underflow"); - ++result; - } - double di = INFINITY; double dm = DBL_MAX; feclearexcept (FE_ALL_EXCEPT); @@ -137,182 +59,5 @@ main (void) ++result; } - di = 0; - dm = DBL_MIN; - feclearexcept (FE_ALL_EXCEPT); - di = nextafter (dm, di); - if (di < 0 || di >= DBL_MIN) - { - puts ("nextafter+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafter+ did not underflow"); - ++result; - } - di = 0; - feclearexcept (FE_ALL_EXCEPT); - di = nextafter (-dm, -di); - if (di > 0 || di <= -DBL_MIN) - { - puts ("nextafter- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafter- did not underflow"); - ++result; - } - di = -INFINITY; - feclearexcept (FE_ALL_EXCEPT); - dm = nextafter (zero, inf); - if (dm < 0.0 || dm >= DBL_MIN) - { - puts ("nextafter+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafter+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafter (dm, di) != 0.0) - { - puts ("nextafter+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafter+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - dm = nextafter (copysign (zero, -1.0), -inf); - if (dm > 0.0 || dm <= -DBL_MIN) - { - puts ("nextafter- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafter- did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafter (dm, -di) != 0.0) - { - puts ("nextafter- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafter- did not underflow"); - ++result; - } - -#ifndef NO_LONG_DOUBLE - long double li = INFINITY; - long double lm = LDBL_MAX; - feclearexcept (FE_ALL_EXCEPT); - if (nextafterl (lm, li) != li) - { - puts ("nextafterl+ failed"); - ++result; - } - if (fetestexcept (FE_OVERFLOW) == 0) - { - puts ("nextafterl+ did not overflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafterl (-lm, -li) != -li) - { - puts ("nextafterl failed"); - ++result; - } - if (fetestexcept (FE_OVERFLOW) == 0) - { - puts ("nextafterl- did not overflow"); - ++result; - } - - li = 0; - lm = LDBL_MIN; - feclearexcept (FE_ALL_EXCEPT); - li = nextafterl (lm, li); - if (li < 0 || li >= LDBL_MIN) - { - puts ("nextafterl+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterl+ did not underflow"); - ++result; - } - li = 0; - feclearexcept (FE_ALL_EXCEPT); - li = nextafterl (-lm, -li); - if (li > 0 || li <= -LDBL_MIN) - { - puts ("nextafterl- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterl- did not underflow"); - ++result; - } - li = -INFINITY; - feclearexcept (FE_ALL_EXCEPT); - lm = nextafterl (zero, inf); - if (lm < 0.0 || lm >= LDBL_MIN) - { - puts ("nextafterl+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterl+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafterl (lm, li) != 0.0) - { - puts ("nextafterl+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterl+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - lm = nextafterl (copysign (zero, -1.0), -inf); - if (lm > 0.0 || lm <= -LDBL_MIN) - { - puts ("nextafterl- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterl- did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nextafterl (lm, -li) != 0.0) - { - puts ("nextafterl- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nextafterl- did not underflow"); - ++result; - } -#endif - return result; } |