diff options
Diffstat (limited to 'sysdeps/ieee754/dbl-64/s_tan.c')
| -rw-r--r-- | sysdeps/ieee754/dbl-64/s_tan.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sysdeps/ieee754/dbl-64/s_tan.c b/sysdeps/ieee754/dbl-64/s_tan.c index dcb4aca..b4e3bd2 100644 --- a/sysdeps/ieee754/dbl-64/s_tan.c +++ b/sysdeps/ieee754/dbl-64/s_tan.c @@ -34,6 +34,7 @@ /*********************************************************************/ #include <errno.h> +#include <float.h> #include "endian.h" #include <dla.h> #include "mpa.h" @@ -91,6 +92,11 @@ tan (double x) /* (I) The case abs(x) <= 1.259e-8 */ if (w <= g1.d) { + if (w < DBL_MIN) + { + double force_underflow = x * x; + math_force_eval (force_underflow); + } retval = x; goto ret; } |