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