Test (make-polar nan 0) is nan.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 5b3774f8dda265cabfb2ae47da94e815fa7817e6..6fc78c05d5bd365b5af4e3b559f0ee3f77943a26 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -142,6 +142,10 @@ USA.
   (lambda (magnitude)
     (assert-real (make-polar magnitude 0))))
 
+(define-test 'polar0-nan
+  (lambda ()
+    (assert-nan (make-polar (flo:nan.0) 0))))
+
 (define-enumerated-test 'flo:ulp
   (vector
    (vector (flo:-inf.0) (flo:+inf.0))