[clblas] 31/75: fix the compilation bug about c(z)dotc_
Ghislain Vaillant
ghisvail-guest at moszumanska.debian.org
Tue Jan 24 23:30:33 UTC 2017
This is an automated email from the git hooks/post-receive script.
ghisvail-guest pushed a commit to branch debian/master
in repository clblas.
commit ed8ee7e768b9621886650f69ae0474db00377798
Author: tim <tingxingdong at gmail.com>
Date: Fri Mar 18 14:24:04 2016 -0500
fix the compilation bug about c(z)dotc_
---
src/tests/correctness/blas-lapack.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/tests/correctness/blas-lapack.c b/src/tests/correctness/blas-lapack.c
index 9687bdf..54666b1 100644
--- a/src/tests/correctness/blas-lapack.c
+++ b/src/tests/correctness/blas-lapack.c
@@ -655,7 +655,7 @@ complex cdotu( int n, complex *x, int incx, complex *y, int incy)
#elif defined( __APPLE__)
cblas_cdotu_sub(n, x, incx, y, incy, &ans);
#else
- cdotusub_(&n, x, &incx, y, &incy, &ans);
+ ans = cdotu_(&n, x, &incx, y, &incy);
#endif
return ans;
@@ -670,7 +670,7 @@ doublecomplex zdotu( int n, doublecomplex *x, int incx, doublecomplex *y, int i
#elif defined(__APPLE__)
cblas_zdotu_sub(n, x, incx, y, incy, &ans);
#else
- zdotusub_(&n, x, &incx, y, &incy, &ans);
+ ans = zdotu_(&n, x, &incx, y, &incy);
#endif
return ans;
@@ -685,7 +685,7 @@ complex cdotc( int n, complex *x, int incx, complex *y, int incy)
#elif defined(__APPLE__)
cblas_cdotc_sub(n, x, incx, y, incy, &ans);
#else
- cdotcsub_(&n, x, &incx, y, &incy, &ans);
+ ans = cdotc_(&n, x, &incx, y, &incy);
#endif
return ans;
@@ -700,7 +700,7 @@ doublecomplex zdotc( int n, doublecomplex *x, int incx, doublecomplex *y, int i
#elif defined(__APPLE__)
cblas_zdotc_sub(n, x, incx, y, incy, &ans);
#else
- zdotcsub_(&n, x, &incx, y, &incy, &ans);
+ ans = zdotc_(&n, x, &incx, y, &incy);
#endif
return ans;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/clblas.git
More information about the debian-science-commits
mailing list