Browse Source

Use RETURN_BY_STACK interface of zdotu

pull/1462/head
Martin Kroeker GitHub 8 years ago
parent
commit
b7f26f6717
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      utest/utest_main2.c

+ 2
- 2
utest/utest_main2.c View File

@@ -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);


Loading…
Cancel
Save