X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.impure.lisp;h=e32a6d9fcdd7c72e93a3622adb71bcd7e998ce8c;hb=40e3ba03d0e1b824e4d1ae75d74246b975b70964;hp=2af31bf5b2c7578697024fe7c7164638e9b7edb9;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index 2af31bf..e32a6d9 100644
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -95,5 +95,24 @@
   (test atanh)
   (test exp))
 
+;;; Broken move-arg-double-float for non-rsp frame pointers on x86-64
+(defun test (y)
+  (declare (optimize speed))
+  (multiple-value-bind (x)
+      (labels ((aux (x)
+                 (declare (double-float x))
+                 (etypecase y
+                   (double-float
+                    nil)
+                   (fixnum
+                    (aux x))
+                   (complex
+                    (format t "y=~s~%" y)))
+                 (values x)))
+        (aux 2.0d0))
+    x))
+
+(assert (= (test 1.0d0) 2.0d0))
+
 ;;; success
 (quit :unix-status 104)