From b7f26f6717bd1eb60584d65a71ebafe38009e288 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 16 Feb 2018 16:33:53 +0100 Subject: [PATCH] Use RETURN_BY_STACK interface of zdotu --- utest/utest_main2.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utest/utest_main2.c b/utest/utest_main2.c index bff54fa6d..5c0cf5240 100644 --- a/utest/utest_main2.c +++ b/utest/utest_main2.c @@ -269,7 +269,7 @@ CTEST( zdotu,zdotu_n_1) _Dcomplex result1=openblas_make_complex_double(0.0,0.0); _Dcomplex result2=openblas_make_complex_double(-1.0,3.0); //OpenBLAS - result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); + BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); @@ -285,7 +285,7 @@ CTEST(zdotu, zdotu_offset_1) _Dcomplex result2=openblas_make_complex_double(-9.0,32.0); //OpenBLAS - result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); + BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY); ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);