X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.impure.lisp;fp=tests%2Ffloat.impure.lisp;h=f9b8f0d29172547142f212c48c1ac7a0f818f25d;hb=043a8820506178134574627c2d7f07dc79070bd8;hp=ef7379e750b406509409e505221ae79cb4679bed;hpb=f6f238261f95e8ffff2870ed3ac6fc00ddf09ef2;p=sbcl.git

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index ef7379e..f9b8f0d 100644
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -54,5 +54,13 @@
 		  #(2.0d0 2.0d0)
 		  #(3.0d0 3.0d0))))
 
+(defun complex-double-float-ppc (x y)
+  (declare (type (complex double-float) x y))
+  (declare (optimize speed))
+  (+ x y))
+(compile 'complex-double-float-ppc)
+(assert (= (complex-double-float-ppc #c(0.0d0 1.0d0) #c(2.0d0 3.0d0))
+           #c(2.0d0 4.0d0)))
+
 ;;; success
 (quit :unix-status 104)