diff --git a/tests/matrix-product-hermitian.lisp b/tests/matrix-product-hermitian.lisp
index b0aed305e2de9def413970f3a4a9d505fa0d292b..64c934370665ae2b2bb4c87aa13538f58ae9e2f0 100644
--- a/tests/matrix-product-hermitian.lisp
+++ b/tests/matrix-product-hermitian.lisp
@@ -22,12 +22,12 @@
 (LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-HERMITIAN
   (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
    (LIST
-    #2A((#C(161635.16 -134299.77) #C(93510.016 -191870.72)
-	   #C(55739.336 13621.439))
-	(#C(-68526.41 125188.29) #C(46318.242 59787.605)
-	   #C(-28142.984 5816.9385))
-	(#C(-139503.38 55690.902) #C(2898.8164 49116.78)
-	   #C(-57882.3 -176350.63))))
+    #2A((#C(161635.16f0 -134299.77f0) #C(93510.016f0 -191870.72f0)
+	   #C(55739.336f0 13621.439f0))
+	(#C(-68526.41f0 125188.29f0) #C(46318.242f0 59787.605f0)
+	   #C(-28142.984f0 5816.9385f0))
+	(#C(-139503.38f0 55690.902f0) #C(2898.8164f0 49116.78f0)
+	   #C(-57882.3f0 -176350.63f0))))
    (MULTIPLE-VALUE-LIST
     (LET ((M1
 	   (GRID:MAKE-FOREIGN-ARRAY
@@ -93,8 +93,8 @@
        (MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2)))))
   (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
    (LIST
-    #(#C(117171.67 19582.54) #C(18787.117 29534.742)
-      #C(-104992.03 72729.13)))
+    #(#C(117171.67f0 19582.54f0) #C(18787.117f0 29534.742f0)
+      #C(-104992.03f0 72729.13f0)))
    (MULTIPLE-VALUE-LIST
     (LET ((M1
 	   (GRID:MAKE-FOREIGN-ARRAY