floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use RETURN_BY_STACK interface of zdotu

This commit is contained in:
Martin Kroeker 2018-02-16 16:33:53 +01:00 committed by GitHub
parent 157820b8c3
commit b7f26f6717
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utest/utest_main2.c
View File

@ -269,7 +269,7 @@ CTEST( zdotu,zdotu_n_1)
_Dcomplex result1=openblas_make_complex_double(0.0,0.0); _Dcomplex result1=openblas_make_complex_double(0.0,0.0);
_Dcomplex result2=openblas_make_complex_double(-1.0,3.0); _Dcomplex result2=openblas_make_complex_double(-1.0,3.0);
//OpenBLAS //OpenBLAS
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY);
ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);
@ -285,7 +285,7 @@ CTEST(zdotu, zdotu_offset_1)
_Dcomplex result2=openblas_make_complex_double(-9.0,32.0); _Dcomplex result2=openblas_make_complex_double(-9.0,32.0);
//OpenBLAS //OpenBLAS
result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY);
ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);