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

Update test_dotu.c

This commit is contained in:
Martin Kroeker 2018-02-19 13:59:59 +01:00 committed by GitHub
parent a980939fbf
commit 23bf1b97c4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utest/test_dotu.c
View File

@ -56,10 +56,13 @@ CTEST( zdotu,zdotu_n_1)
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);
#endif #endif
#endif
} }
CTEST(zdotu, zdotu_offset_1) CTEST(zdotu, zdotu_offset_1)
{ {
#ifndef MSVC
blasint N=1,incX=1,incY=1; blasint N=1,incX=1,incY=1;
double x1[]={1.0,2.0,3.0,4.0}; double x1[]={1.0,2.0,3.0,4.0};
double y1[]={5.0,6.0,7.0,8.0}; double y1[]={5.0,6.0,7.0,8.0};