Update.

	* math/test-misc.c (main): Add a few more over and underflow tests
	for scalb.

1 files changed, 43 insertions, 0 deletions

diff --git a/math/test-misc.c b/math/test-misc.c
index 514035554c..0dbb0882fa 100644
--- a/math/test-misc.c
+++ b/math/test-misc.c
@@ -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;
 }