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

Update utest_main2.c

This commit is contained in:
Martin Kroeker 2018-02-17 23:07:37 +01:00 committed by GitHub
parent 950940055d
commit bec2748c6a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utest/utest_main2.c
View File

@ -268,9 +268,12 @@ CTEST( zdotu,zdotu_n_1)
double y1[]={1.0,2.0}; double y1[]={1.0,2.0};
openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
openblas_complex_double result2=openblas_make_complex_double(-1.0,3.0); openblas_complex_double result2=openblas_make_complex_double(-1.0,3.0);
//OpenBLAS #ifdef __CTEST_MSVC
BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY);
#else
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
#endif
#ifdef OPENBLAS_COMPLEX_STRUCT #ifdef OPENBLAS_COMPLEX_STRUCT
ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);
@ -287,10 +290,12 @@ CTEST(zdotu, zdotu_offset_1)
double y1[]={5.0,6.0,7.0,8.0}; double y1[]={5.0,6.0,7.0,8.0};
openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
openblas_complex_double result2=openblas_make_complex_double(-9.0,32.0); openblas_complex_double result2=openblas_make_complex_double(-9.0,32.0);
#ifdef __CTEST_MSVC
//OpenBLAS
BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY); BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY);
#else
result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);
#endif
#ifdef OPENBLAS_COMPLEX_STRUCT #ifdef OPENBLAS_COMPLEX_STRUCT
ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);