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

Tests include explicit arguments for copy-to

Test results no longer assume default values of arguments to copy-to,
which can change. This improves the results with fewer execution
errors.
parent d21fa5b5
Loading
Loading
Loading
Loading
+5 −5
Original line number Diff line number Diff line
;; Regression test AXPY for GSLL, automatically generated
;;
;; Copyright 2009, 2011 Liam M. Healy
;; Copyright 2009, 2011, 2014 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
@@ -33,7 +33,7 @@
	    'SINGLE-FLOAT :INITIAL-CONTENTS
	    '(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)))))
      (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array 'single-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    #(1400.77d0 -284.06839999999994d0 -147.7214d0
@@ -55,7 +55,7 @@
	      -16.12d0 -8.25d0 21.44d0
	      -49.08d0)))
	  (SCALAR -39.66d0))
      (GRID:COPY-TO (AXPY SCALAR V1 V2)))))
      (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array 'double-float))))
  #+fsbv
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
@@ -80,7 +80,7 @@
	      #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)))))
      (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array '(complex single-float)))))
  #+fsbv
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
@@ -110,4 +110,4 @@
	      #C(-39.66d0 -49.46d0) #C(19.68d0 -5.55d0)
	      #C(-8.82d0 25.37d0) #C(-30.58d0 31.67d0))))
	  (SCALAR #C(-39.66d0 -49.46d0)))
      (GRID:COPY-TO (AXPY SCALAR V1 V2))))))
      (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array '(complex double-float))))))
+13 −12
Original line number Diff line number Diff line
;; Regression test BESSEL for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2014 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
@@ -31,7 +31,7 @@
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   #(0.35283402861563773d0 0.12894324947440206d0
     0.033995719807568436d0 0.007039629755871686d0)
   (grid:copy-to (cylindrical-bessel-J-array-order 2.0d0 4 2)))
   (grid:copy-to (cylindrical-bessel-J-array-order 2.0d0 4 2) 'array 'double-float))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST -0.016940739325064968d0 1.8993556609468549d-16)
   (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-Y0 4.0d0)))
@@ -49,7 +49,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (CYLINDRICAL-BESSEL-YN-ARRAY 2.0d0 BESARR 2)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 11.301921952136329d0 2.7297681442535893d-14)
   (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-I0 4.0d0)))
@@ -70,7 +70,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (CYLINDRICAL-BESSEL-IN-ARRAY 2.0d0 BESARR 2)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 0.2070019212239867d0 2.241925168997723d-16)
   (MULTIPLE-VALUE-LIST
@@ -94,7 +94,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (CYLINDRICAL-BESSEL-IN-SCALED-ARRAY 2.0d0 BESARR 2)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 0.011159676085853023d0 2.0424662435034432d-17)
   (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-K0 4.0d0)))
@@ -130,7 +130,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (CYLINDRICAL-BESSEL-KN-ARRAY 2.0d0 BESARR 2)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST -0.18920062382698205d0 1.6804391107692678d-16)
   (MULTIPLE-VALUE-LIST (SPHERICAL-BESSEL-J0 4.0d0)))
@@ -151,7 +151,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (SPHERICAL-BESSEL-JL-ARRAY 4.0d0 BESARR)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    #(-0.18920062382698208d0 0.11611074925915742d0
@@ -160,7 +160,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (SPHERICAL-BESSEL-JL-STEED-ARRAY 4.0d0 BESARR)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 0.16341090521590299d0 1.4513803955642766d-16)
   (MULTIPLE-VALUE-LIST (SPHERICAL-BESSEL-Y0 4.0d0)))
@@ -181,7 +181,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (SPHERICAL-BESSEL-YL-ARRAY 4.0d0 BESARR)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 0.12495806717151219d0 5.5492529314587895d-17)
   (MULTIPLE-VALUE-LIST
@@ -206,7 +206,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (SPHERICAL-BESSEL-IL-SCALED-ARRAY 4.0d0 BESARR)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 0.39269908169872414d0 1.743934249004316d-16)
   (MULTIPLE-VALUE-LIST
@@ -231,7 +231,7 @@
    (LET ((BESARR
	   (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4)))
      (SPHERICAL-BESSEL-KL-SCALED-ARRAY 4.0d0 BESARR)
      (GRID:COPY-TO BESARR))))
      (GRID:COPY-TO BESARR 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST 0.43017147387562193d0 7.641380397338472d-16)
   (MULTIPLE-VALUE-LIST (cylindrical-bessel-J 3.0d0 4.0d0)))
@@ -243,7 +243,8 @@
    (grid:copy-to
     (cylindrical-bessel-J-array-x
      0.5d0
      (grid:make-foreign-array 'double-float :initial-contents '(1.0d0 2.0d0 3.0d0))))))
      (grid:make-foreign-array 'double-float :initial-contents '(1.0d0 2.0d0 3.0d0)))
     'array 'double-float)))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST -0.1820221159534852d0 2.020851441225493d-15)
   (MULTIPLE-VALUE-LIST (cylindrical-bessel-Y 3.0d0 4.0d0)))
+5 −5
Original line number Diff line number Diff line
;; Regression test BLAS-COPY for GSLL, automatically generated
;;
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Copyright 2009, 2010, 2011, 2014 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
@@ -27,7 +27,7 @@
	    'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5f0 8.24f0 3.29f0)))
	  (V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3)))
      (BLAS-COPY V1 V2)
      (GRID:COPY-TO V2))))
      (GRID:COPY-TO V2 'array 'single-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(-34.5d0 8.24d0 3.29d0))
   (MULTIPLE-VALUE-LIST
@@ -36,7 +36,7 @@
	    'DOUBLE-FLOAT :INITIAL-CONTENTS '(-34.5d0 8.24d0 3.29d0)))
	  (V2 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3)))
      (BLAS-COPY V1 V2)
      (GRID:COPY-TO V2))))
      (GRID:COPY-TO V2 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0)))
   (MULTIPLE-VALUE-LIST
@@ -49,7 +49,7 @@
	   (GRID:MAKE-FOREIGN-ARRAY
	    '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3)))
      (BLAS-COPY V1 V2)
      (GRID:COPY-TO V2))))
      (GRID:COPY-TO V2 'array '(complex single-float)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0)
@@ -65,4 +65,4 @@
	   (GRID:MAKE-FOREIGN-ARRAY
	    '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3)))
      (BLAS-COPY V1 V2)
      (GRID:COPY-TO V2)))))
      (GRID:COPY-TO V2 'array '(complex double-float))))))
+5 −5
Original line number Diff line number Diff line
;; Regression test BLAS-SWAP for GSLL, automatically generated
;;
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Copyright 2009, 2010, 2011, 2014 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
@@ -31,7 +31,7 @@
	    'SINGLE-FLOAT :INITIAL-CONTENTS
	    '(-8.93f0 34.12f0 -6.15f0))))
      (BLAS-SWAP V2 V1)
      (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))
      (LIST (GRID:COPY-TO V1 'array 'single-float) (GRID:COPY-TO V2 'array 'single-float)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    (LIST #(-8.93d0 34.12d0 -6.15d0)
@@ -46,7 +46,7 @@
	    'DOUBLE-FLOAT :INITIAL-CONTENTS
	    '(-8.93d0 34.12d0 -6.15d0))))
      (BLAS-SWAP V2 V1)
      (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))
      (LIST (GRID:COPY-TO V1 'array 'double-float) (GRID:COPY-TO V2 'array 'double-float)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    (LIST
@@ -64,7 +64,7 @@
	    :INITIAL-CONTENTS
	    '(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0)))))
      (BLAS-SWAP V2 V1)
      (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))
      (LIST (GRID:COPY-TO V1 'array '(complex single-float)) (GRID:COPY-TO V2 'array '(complex single-float))))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    (LIST
@@ -84,4 +84,4 @@
	    :INITIAL-CONTENTS
	    '(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)))))
      (BLAS-SWAP V2 V1)
      (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))))
      (LIST (GRID:COPY-TO V1 'array '(complex double-float)) (GRID:COPY-TO V2 'array '(complex double-float)))))))
+13 −13
Original line number Diff line number Diff line
;; Regression test COLUMN for GSLL, automatically generated
;;
;; Copyright 2009, 2010, 2011 Liam M. Healy
;; Copyright 2009, 2010, 2011, 2014 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
@@ -30,7 +30,7 @@
		   (-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)))))
	   (GRID:COPY-TO (COLUMN M1 1 COL) 'array 'single-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(8.24d0 34.12d0 -13.49d0))
   (MULTIPLE-VALUE-LIST
@@ -41,7 +41,7 @@
		 (-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)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array 'double-float))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(#C(3.29f0 -8.93f0) #C(-6.15f0 49.27f0) #C(32.5f0 42.73f0)))
   (MULTIPLE-VALUE-LIST
@@ -55,7 +55,7 @@
	     (COL
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(complex single-float)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST
    #(#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0)
@@ -70,7 +70,7 @@
		 (#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)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(complex double-float)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(-68 52 -5))
   (MULTIPLE-VALUE-LIST
@@ -85,7 +85,7 @@
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(SIGNED-BYTE 8)
	       :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 8)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(44 163 215))
   (MULTIPLE-VALUE-LIST
@@ -100,7 +100,7 @@
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(UNSIGNED-BYTE 8)
	       :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 8)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(-68 52 -5))
   (MULTIPLE-VALUE-LIST
@@ -114,7 +114,7 @@
	     (COL
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(SIGNED-BYTE 16) :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 16)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(44 163 215))
   (MULTIPLE-VALUE-LIST
@@ -129,7 +129,7 @@
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(UNSIGNED-BYTE 16)
	       :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 16)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(-68 52 -5))
   (MULTIPLE-VALUE-LIST
@@ -143,7 +143,7 @@
	     (COL
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(SIGNED-BYTE 32) :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 32)))))
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(44 163 215))
   (MULTIPLE-VALUE-LIST
@@ -157,7 +157,7 @@
	     (COL
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(UNSIGNED-BYTE 32) :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 32)))))
  #+int64
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(-68 52 -5))
@@ -173,7 +173,7 @@
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(SIGNED-BYTE 64)
	       :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL)))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 64)))))
  #+int64
  (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
   (LIST #(44 163 215))
@@ -189,5 +189,5 @@
	      (GRID:MAKE-FOREIGN-ARRAY
	       '(UNSIGNED-BYTE 64)
	       :DIMENSIONS '3)))
	 (GRID:COPY-TO (COLUMN M1 1 COL))))))
	 (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 64))))))
Loading