diff options
Diffstat (limited to 'math/bug-nexttoward.c')
| -rw-r--r-- | math/bug-nexttoward.c | 255 |
1 files changed, 0 insertions, 255 deletions
diff --git a/math/bug-nexttoward.c b/math/bug-nexttoward.c index ff57e5e3f5..e306a129c2 100644 --- a/math/bug-nexttoward.c +++ b/math/bug-nexttoward.c @@ -4,9 +4,6 @@ #include <stdlib.h> #include <stdio.h> -float zero = 0.0; -float inf = INFINITY; - int main (void) { @@ -38,81 +35,6 @@ main (void) ++result; } - fi = 0; - m = FLT_MIN; - feclearexcept (FE_ALL_EXCEPT); - fi = nexttowardf (m, fi); - if (fi < 0 || fi >= FLT_MIN) - { - puts ("nexttowardf+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardf+ did not underflow"); - ++result; - } - fi = 0; - feclearexcept (FE_ALL_EXCEPT); - fi = nexttowardf (-m, -fi); - if (fi > 0 || fi <= -FLT_MIN) - { - puts ("nexttowardf- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardf- did not underflow"); - ++result; - } - fi = -INFINITY; - feclearexcept (FE_ALL_EXCEPT); - m = nexttowardf (zero, inf); - if (m < 0.0 || m >= FLT_MIN) - { - puts ("nexttowardf+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardf+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttowardf (m, fi) != 0.0) - { - puts ("nexttowardf+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardf+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - m = nexttowardf (copysignf (zero, -1.0), -inf); - if (m > 0.0 || m <= -FLT_MIN) - { - puts ("nexttowardf- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardf- did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttowardf (m, -fi) != 0.0) - { - puts ("nexttowardf- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardf- did not underflow"); - ++result; - } - tl = (long double) DBL_MAX + 1.0e305L; double di = INFINITY; double dm = DBL_MAX; @@ -139,182 +61,5 @@ main (void) ++result; } - di = 0; - dm = DBL_MIN; - feclearexcept (FE_ALL_EXCEPT); - di = nexttoward (dm, di); - if (di < 0 || di >= DBL_MIN) - { - puts ("nexttoward+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttoward+ did not underflow"); - ++result; - } - di = 0; - feclearexcept (FE_ALL_EXCEPT); - di = nexttoward (-dm, -di); - if (di > 0 || di <= -DBL_MIN) - { - puts ("nexttoward- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttoward- did not underflow"); - ++result; - } - di = -INFINITY; - feclearexcept (FE_ALL_EXCEPT); - dm = nexttoward (zero, inf); - if (dm < 0.0 || dm >= DBL_MIN) - { - puts ("nexttoward+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttoward+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttoward (dm, di) != 0.0) - { - puts ("nexttoward+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttoward+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - dm = nexttoward (copysign (zero, -1.0), -inf); - if (dm > 0.0 || dm <= -DBL_MIN) - { - puts ("nexttoward- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttoward- did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttoward (dm, -di) != 0.0) - { - puts ("nexttoward- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttoward- did not underflow"); - ++result; - } - -#ifndef NO_LONG_DOUBLE - long double li = INFINITY; - long double lm = LDBL_MAX; - feclearexcept (FE_ALL_EXCEPT); - if (nexttowardl (lm, li) != li) - { - puts ("nexttowardl+ failed"); - ++result; - } - if (fetestexcept (FE_OVERFLOW) == 0) - { - puts ("nexttowardl+ did not overflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttowardl (-lm, -li) != -li) - { - puts ("nexttowardl failed"); - ++result; - } - if (fetestexcept (FE_OVERFLOW) == 0) - { - puts ("nexttowardl- did not overflow"); - ++result; - } - - li = 0; - lm = LDBL_MIN; - feclearexcept (FE_ALL_EXCEPT); - li = nexttowardl (lm, li); - if (li < 0 || li >= LDBL_MIN) - { - puts ("nexttowardl+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardl+ did not underflow"); - ++result; - } - li = 0; - feclearexcept (FE_ALL_EXCEPT); - li = nexttowardl (-lm, -li); - if (li > 0 || li <= -LDBL_MIN) - { - puts ("nexttowardl- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardl- did not underflow"); - ++result; - } - li = -INFINITY; - feclearexcept (FE_ALL_EXCEPT); - lm = nexttowardl (zero, inf); - if (lm < 0.0 || lm >= LDBL_MIN) - { - puts ("nexttowardl+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardl+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttowardl (lm, li) != 0.0) - { - puts ("nexttowardl+ failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardl+ did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - lm = nexttowardl (copysign (zero, -1.0), -inf); - if (lm > 0.0 || lm <= -LDBL_MIN) - { - puts ("nexttowardl- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardl- did not underflow"); - ++result; - } - feclearexcept (FE_ALL_EXCEPT); - if (nexttowardl (lm, -li) != 0.0) - { - puts ("nexttowardl- failed"); - ++result; - } - if (fetestexcept (FE_UNDERFLOW) == 0) - { - puts ("nexttowardl- did not underflow"); - ++result; - } -#endif - return result; } |