(main): Add a few more over and underflow tests for scalb.
authordrepper <drepper>
Tue, 5 Dec 2000 06:49:08 +0000 (06:49 +0000)
committerdrepper <drepper>
Tue, 5 Dec 2000 06:49:08 +0000 (06:49 +0000)
math/test-misc.c

index 5140355..0dbb088 100644 (file)
@@ -17,6 +17,7 @@
    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.  */
 
+#include <fenv.h>
 #include <math.h>
 #include <stdio.h>
 #include <string.h>
@@ -208,5 +209,47 @@ main (void)
   }
 #endif
 
+#ifndef NO_LONG_DOUBLE
+  {
+    long double r;
+
+    feclearexcept (FE_ALL_EXCEPT);
+    r = scalbl (LDBL_MIN, 2147483647);
+    if (! isinf (r))
+      {
+       puts ("scalbl (LDBL_MIN, 2147483647) does not return Inf");
+       result = 1;
+      }
+    else if (signbit (r) != 0)
+      {
+       puts ("scalbl (LDBL_MIN, 2147483647) returns -Inf");
+       result = 1;
+      }
+    else if (fetestexcept (FE_UNDERFLOW))
+      {
+       puts ("scalbl(NaN, 0) raises underflow exception");
+       result = 1;
+      }
+
+    feclearexcept (FE_ALL_EXCEPT);
+    r = scalbl (LDBL_MAX, -2147483647);
+    if (r != 0.0)
+      {
+       puts ("scalbl (LDBL_MAX, -2147483647) does not return 0");
+       result = 1;
+      }
+    else if (signbit (r) != 0)
+      {
+       puts ("scalbl (LDBL_MAX, -2147483647) returns -Inf");
+       result = 1;
+      }
+    else if (fetestexcept (FE_OVERFLOW))
+      {
+       puts ("scalbl(NaN, 0) raises overflow exception");
+       result = 1;
+      }
+  }
+#endif
+
   return result;
 }