From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Nov 2018 03:21:44 +0000 (+0000)
Subject: Test (sqrt -0.) = -0., per IEEE 754-2008.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~109
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=af8eb53892703deaa4a191e274436d7f2834e92f;p=mit-scheme.git

Test (sqrt -0.) = -0., per IEEE 754-2008.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index a3edece17..7d8ae81d5 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -656,6 +656,7 @@ USA.
 (define-enumerated-test 'sqrt-exact
   `((0 0)
     (0. 0.)
+    (-0. -0.)                           ;IEEE 754-2008, 5.4.1, p. 21
     (1 1)
     (1. 1.)
     ;; Square root of perfect square should be exact.