From 50e4bc0f626bf174c4125449ea527741f46ebdfd Mon Sep 17 00:00:00 2001 From: liam <liam@a3d8a0fb-c1db-0310-ace7-a616afeb9e30> Date: Wed, 12 Jul 2006 21:40:10 +0000 Subject: [PATCH] Tests on single-float give explicit single floats (f0 appended). git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3115 a3d8a0fb-c1db-0310-ace7-a616afeb9e30 --- linear-algebra/blas1.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/linear-algebra/blas1.lisp b/linear-algebra/blas1.lisp index a1e85a3f..398f4cec 100644 --- a/linear-algebra/blas1.lisp +++ b/linear-algebra/blas1.lisp @@ -3,7 +3,7 @@ ; description: BLAS level 1, Vector operations ; date: Wed Apr 26 2006 - 15:23 ; author: Liam Healy -; modified: Tue Jun 27 2006 - 23:59 +; modified: Wed Jul 12 2006 - 12:32 ;******************************************************** ;;; $Id: $ @@ -181,12 +181,12 @@ (lisp-unit:assert-first-fp-equal "0.707106770000e+01" (with-data (b vector-single 3) - (setf (data b) #(3.0 4.0 5.0)) + (setf (data b) #(3.0f0 4.0f0 5.0f0)) (norm b))) (lisp-unit:assert-first-fp-equal "0.120000000000e+02" (with-data (b vector-single 3) - (setf (data b) #(3.0 4.0 5.0)) + (setf (data b) #(3.0f0 4.0f0 5.0f0)) (asum b))) (lisp-unit:assert-eql 1 -- GitLab