diff --git a/utest/test_dotu.c b/utest/test_dotu.c index e68226bdc..0c9369f1b 100644 --- a/utest/test_dotu.c +++ b/utest/test_dotu.c @@ -39,25 +39,22 @@ CTEST( zdotu,zdotu_n_1) blasint N=1,incX=1,incY=1; double x1[]={1.0,1.0}; double y1[]={1.0,2.0}; -#ifdef __CTEST_MSVC - openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); - openblas_complex_double result2=openblas_make_complex_double(-1.0000,3.0000); - result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); + + openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); + openblas_complex_double result2=openblas_make_complex_double(-1.0000,3.0000); +#ifdef RETURN_BY_STACK + BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); #else - _Complex double result1=openblas_make_complex_double(0.0,0.0); - _Complex double result2=openblas_make_complex_double(-1.0000,3.0000); result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); #endif - + #ifdef OPENBLAS_COMPLEX_STRUCT ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS); -#else +#else ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); #endif -// printf("\%lf,%lf\n",creal(result1),cimag(result1)); - } CTEST(zdotu, zdotu_offset_1) @@ -65,24 +62,20 @@ CTEST(zdotu, zdotu_offset_1) blasint N=1,incX=1,incY=1; double x1[]={1.0,2.0,3.0,4.0}; double y1[]={5.0,6.0,7.0,8.0}; -#ifdef __CTEST_MSVC - _Dcomplex result1=openblas_make_complex_double(0.0,0.0); - _Dcomplex result2=openblas_make_complex_double(-9.0000,32.0000); - result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); + + openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); + openblas_complex_double result2=openblas_make_complex_double(-9.0,32.0); +#ifdef RETURN_BY_STACK + BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY); #else - _Complex double result1=openblas_make_complex_double(0.0,0.0); - _Complex double result2=openblas_make_complex_double(-9.0000,32.0000); result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); #endif - + #ifdef OPENBLAS_COMPLEX_STRUCT - ASSERT_DBL_NEAR_TOL(result1.real,result2.real,DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(result1.imag,result2.imag,DOUBLE_EPS); -#else + ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS); +#else ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); #endif -// printf("\%lf,%lf\n",creal(result1),cimag(result1)); - } -