|
|
@@ -268,11 +268,11 @@ 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); |
|
|
#ifdef __CTEST_MSVC |
|
|
|
|
|
BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); |
|
|
|
|
|
#else |
|
|
|
|
|
|
|
|
//#ifdef __CTEST_MSVC |
|
|
|
|
|
// BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); |
|
|
|
|
|
//#else |
|
|
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); |
|
|
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); |
|
|
#endif |
|
|
|
|
|
|
|
|
//#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); |
|
|
|