Commit e6380d35 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Single-float tests have explicit single float numbers (start)

Change literal floats in tests from an unspecified precision to
explicit single floats, so that if *read-default-float-format* is
something other than 'single-float the tests will still pass.  About
half the failures now fixed.  Function #'cdot is returning a pointer
instead of a numerical value.
parent 5d648d16
;; Regression test ABSOLUTE-SUM for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -20,13 +20,13 @@
(LISP-UNIT:DEFINE-TEST ABSOLUTE-SUM
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 157.99)
(LIST 157.99f0)
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49))))
'(-34.5f0 8.24f0 3.29f0 -8.93f0 34.12f0 -6.15f0 49.27f0 -13.49f0))))
(ABSOLUTE-SUM V1))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 157.99d0)
......@@ -38,15 +38,14 @@
'(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0))))
(ABSOLUTE-SUM V1))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 388.65997)
(LIST 388.65997f0)
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX
SINGLE-FLOAT)
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) #C(49.27 -13.49)
#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08)))))
'(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0) #C(49.27f0 -13.49f0)
#C(32.5f0 42.73f0) #C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0) #C(21.44f0 -49.08f0)))))
(ABSOLUTE-SUM V1))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 388.65999999999997d0)
......
;; Regression test AXPY for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -21,18 +21,18 @@
(LISP-UNIT:DEFINE-TEST AXPY
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#(1400.77 -284.0684 -147.7214 397.47382 -1369.3191
235.659 -1932.6083 485.93335))
#(1400.77f0 -284.0684f0 -147.7214f0 397.47382f0 -1369.3191f0
235.659f0 -1932.6083f0 485.93335f0))
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS
'(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))
'(-34.5f0 8.24f0 3.29f0 -8.93f0 34.12f0 -6.15f0 49.27f0 -13.49f0)))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS
'(32.5 42.73 -17.24 43.31 -16.12 -8.25 21.44 -49.08)))
(SCALAR -39.66))
'(32.5f0 42.73f0 -17.24f0 43.31f0 -16.12f0 -8.25f0 21.44f0 -49.08f0)))
(SCALAR -39.66f0))
(grid:copy-to (AXPY SCALAR V1 V2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
......@@ -59,27 +59,27 @@
#+fsbv
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#(#C(1808.3204 1422.3015) #C(-589.3992 234.75043)
#C(-1673.498 -1451.916) #C(-2599.8237 -1950.9608)
#C(784.81586 -3351.5815) #C(2845.531 -870.5343)
#C(222.45422 1149.8602) #C(-3308.3872 917.76044)))
#(#C(1808.3204f0 1422.3015f0) #C(-589.3992f0 234.75043f0)
#C(-1673.498f0 -1451.916f0) #C(-2599.8237f0 -1950.9608f0)
#C(784.81586f0 -3351.5815f0) #C(2845.531f0 -870.5343f0)
#C(222.45422f0 1149.8602f0) #C(-3308.3872f0 917.76044f0)))
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(-34.5 8.24) #C(3.29 -8.93)
#C(34.12 -6.15) #C(49.27 -13.49) #C(32.5 42.73)
#C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))
'(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0)
#C(34.12f0 -6.15f0) #C(49.27f0 -13.49f0) #C(32.5f0 42.73f0)
#C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0) #C(21.44f0 -49.08f0))))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25)
#C(21.44 -49.08) #C(-39.66 -49.46)
#C(19.68 -5.55) #C(-8.82 25.37)
#C(-30.58 31.67))))
(SCALAR #C(-39.66 -49.46)))
'(#C(32.5f0 42.73f0) #C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0)
#C(21.44f0 -49.08f0) #C(-39.66f0 -49.46f0)
#C(19.68f0 -5.55f0) #C(-8.82f0 25.37f0)
#C(-30.58f0 31.67f0))))
(SCALAR #C(-39.66f0 -49.46f0)))
(GRID:COPY-TO (AXPY SCALAR V1 V2)))))
#+fsbv
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......
;; Regression test CDOT for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -20,22 +20,22 @@
(LISP-UNIT:DEFINE-TEST CDOT
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #C(-6252.624 -6236.0503))
(LIST #C(-6252.624f0 -6236.0503f0))
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)
#C(49.27 -13.49) #C(32.5 42.73)
#C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))
'(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0)
#C(49.27f0 -13.49f0) #C(32.5f0 42.73f0)
#C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0) #C(21.44f0 -49.08f0))))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25)
#C(21.44 -49.08) #C(-39.66 -49.46)
#C(19.68 -5.55) #C(-8.82 25.37) #C(-30.58 31.67)))))
'(#C(32.5f0 42.73f0) #C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0)
#C(21.44f0 -49.08f0) #C(-39.66f0 -49.46f0)
#C(19.68f0 -5.55f0) #C(-8.82f0 25.37f0) #C(-30.58f0 31.67f0)))))
(CDOT V1 V2))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #C(-6252.624d0 -6236.050300000001d0))
......
;; Regression test COLUMN for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -19,175 +19,175 @@
(in-package :gsl)
(LISP-UNIT:DEFINE-TEST COLUMN
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(8.24 34.12 -13.49))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'((-34.5 8.24 3.29)
(-8.93 34.12 -6.15)
(49.27 -13.49 32.5))))
(COL (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(8.24f0 34.12f0 -13.49f0))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'((-34.5f0 8.24f0 3.29f0)
(-8.93f0 34.12f0 -6.15f0)
(49.27f0 -13.49f0 32.5f0))))
(COL (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(8.24d0 34.12d0 -13.49d0))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT :INITIAL-CONTENTS
'((-34.5d0 8.24d0 3.29d0)
(-8.93d0 34.12d0 -6.15d0)
(49.27d0 -13.49d0 32.5d0))))
(COL (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'DOUBLE-FLOAT :INITIAL-CONTENTS
'((-34.5d0 8.24d0 3.29d0)
(-8.93d0 34.12d0 -6.15d0)
(49.27d0 -13.49d0 32.5d0))))
(COL (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73)))
(LIST #(#C(3.29f0 -8.93f0) #C(-6.15f0 49.27f0) #C(32.5f0 42.73f0)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15))
(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5))
(#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'((#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))
(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0))
(#C(49.27f0 -13.49f0) #C(32.5f0 42.73f0) #C(-17.24f0 43.31f0)))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#(#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0)
#C(32.5d0 42.73d0)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX DOUBLE-FLOAT)
:INITIAL-CONTENTS
'((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0))
(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))
(#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))
(COL
(GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX DOUBLE-FLOAT)
:INITIAL-CONTENTS
'((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0))
(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))
(#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))
(COL
(GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-68 52 -5))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 8)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 8)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 8)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 8)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(44 163 215))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 8)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 8)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 8)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 8)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-68 52 -5))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 16)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 16) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 16)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 16) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(44 163 215))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 16)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 16)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 16)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 16)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-68 52 -5))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 32)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 32) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 32)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 32) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(44 163 215))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 32)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 32) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 32)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 32) :DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-68 52 -5))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 64)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 64)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 64)
:INITIAL-CONTENTS
'((-64 -68 71)
(-91 52 -10)
(73 -5 123))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(SIGNED-BYTE 64)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(44 163 215))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 64)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 64)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL))))))
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 64)
:INITIAL-CONTENTS
'((67 44 189)
(116 163 140)
(161 215 98))))
(COL
(GRID:MAKE-FOREIGN-ARRAY
'(UNSIGNED-BYTE 64)
:DIMENSIONS '3)))
(GRID:COPY-TO (COLUMN M1 1 COL))))))
;; Regression test CORRELATION for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -24,10 +24,10 @@
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(-34.5 8.24 3.29)))
'(-34.5f0 8.24f0 3.29f0)))
(V2
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(-8.93 34.12 -6.15))))
'(-8.93f0 34.12f0 -6.15f0))))
(CORRELATION V1 V2))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.6345226817840662d0)
......
;; Regression test COVARIANCE for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -24,10 +24,10 @@
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(-34.5 8.24 3.29)))
'(-34.5f0 8.24f0 3.29f0)))
(V2
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(-8.93 34.12 -6.15))))
'(-8.93f0 34.12f0 -6.15f0))))
(LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2)))
(COVARIANCE V1 V2 MEAN1 MEAN2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......
;; Regression test DOT for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -20,18 +20,18 @@
(LISP-UNIT:DEFINE-TEST DOT
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 6.5285645)
(LIST 6.5285645f0)
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))
'(-34.5f0 8.24f0 3.29f0 -8.93f0 34.12f0 -6.15f0 49.27f0 -13.49f0)))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'(32.5 42.73 -17.24 43.31 -16.12 -8.25 21.44 -49.08))))
'(32.5f0 42.73f0 -17.24f0 43.31f0 -16.12f0 -8.25f0 21.44f0 -49.08f0))))
(DOT V1 V2))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 6.528400000000033d0)
......@@ -50,22 +50,22 @@
-49.08d0))))
(DOT V1 V2))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #C(625.9737 -4310.1177))
(LIST #C(625.9737f0 -4310.1177f0))
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)
#C(49.27 -13.49) #C(32.5 42.73)
#C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))
'(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0)
#C(49.27f0 -13.49f0) #C(32.5f0 42.73f0)
#C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0) #C(21.44f0 -49.08f0))))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT)
:INITIAL-CONTENTS
'(#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25)
#C(21.44 -49.08) #C(-39.66 -49.46)
#C(19.68 -5.55) #C(-8.82 25.37) #C(-30.58 31.67)))))
'(#C(32.5f0 42.73f0) #C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0)
#C(21.44f0 -49.08f0) #C(-39.66f0 -49.46f0)
#C(19.68f0 -5.55f0) #C(-8.82f0 25.37f0) #C(-30.58f0 31.67f0)))))
(DOT V1 V2))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #C(625.9736000000007d0 -4310.1183d0))
......
;; Regression test EUCLIDEAN-NORM for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -20,13 +20,13 @@
(LISP-UNIT:DEFINE-TEST EUCLIDEAN-NORM
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 71.83472)
(LIST 71.83472f0)
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT
:INITIAL-CONTENTS
'(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49))))
'(-34.5f0 8.24f0 3.29f0 -8.93f0 34.12f0 -6.15f0 49.27f0 -13.49f0))))
(EUCLIDEAN-NORM V1))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 71.83471653734007d0)
......@@ -37,16 +37,16 @@
'(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0))))
(EUCLIDEAN-NORM V1))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 115.80907)
(LIST 115.80907f0)