Sqrt shouldn't discard an inexact zero imaginary component.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index ce4947c01d537256c2fb70f14656e263503643b6..b4c0191b53e4f2c6cd35221321c27ff437981324 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -719,14 +719,14 @@ USA.
     ;; Treat infinities carefully around branch cuts.
     (-inf.0 +inf.0i)
     (+inf.0 +inf.0)
-    (-inf.0+0.i +inf.0i ,expect-failure)
-    (+inf.0+0.i +inf.0i ,expect-error)
-    (-inf.0+1.i +inf.0i ,expect-failure)
-    (+inf.0+1.i +inf.0 ,expect-error)
-    (-inf.0-0.i -inf.0i ,expect-failure)
-    (+inf.0-0.i -inf.0i ,expect-error)
-    (-inf.0-1.i -inf.0i ,expect-failure)
-    (+inf.0-1.i -inf.0 ,expect-error)
+    (-inf.0+0.i 0.+inf.0i ,expect-failure)
+    (+inf.0+0.i +inf.0+0.i ,expect-error)
+    (-inf.0+1.i 0.+inf.0i ,expect-failure)
+    (+inf.0+1.i +inf.0+0.i ,expect-error)
+    (-inf.0-0.i 0.-inf.0i ,expect-failure)
+    (+inf.0-0.i +inf.0-0.i ,expect-error)
+    (-inf.0-1.i 0.-inf.0i ,expect-failure)
+    (+inf.0-1.i +inf.0-0.i ,expect-error)
     (-inf.0i +inf.0-inf.0i)
     (+inf.0i +inf.0+inf.0i)
     (+0.-inf.0i +inf.0-inf.0i)