From bec2748c6a004ebef76116171ef46276707b43b0 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 17 Feb 2018 23:07:37 +0100 Subject: [PATCH] Update utest_main2.c --- utest/utest_main2.c | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/utest/utest_main2.c b/utest/utest_main2.c index a0cd9d6ed..7850e24fd 100644 --- a/utest/utest_main2.c +++ b/utest/utest_main2.c @@ -268,9 +268,12 @@ CTEST( zdotu,zdotu_n_1) double y1[]={1.0,2.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 +#ifdef __CTEST_MSVC BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); - +#else + 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); @@ -287,10 +290,12 @@ CTEST(zdotu, zdotu_offset_1) 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 result2=openblas_make_complex_double(-9.0,32.0); - - //OpenBLAS +#ifdef __CTEST_MSVC 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 ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);