From 950940055d00191aae1a3f19b45c767c5c387791 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 17 Feb 2018 23:00:25 +0100 Subject: [PATCH] Update test_dotu.c --- utest/test_dotu.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/utest/test_dotu.c b/utest/test_dotu.c index 30058f9ab..e68226bdc 100644 --- a/utest/test_dotu.c +++ b/utest/test_dotu.c @@ -48,8 +48,14 @@ CTEST( zdotu,zdotu_n_1) _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 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)); } @@ -68,8 +74,14 @@ CTEST(zdotu, zdotu_offset_1) _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(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)); }