Browse Source

CTEST_ADD tests and change complex double again

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

+ 23
- 4
utest/utest_main2.c View File

@@ -266,8 +266,8 @@ CTEST( zdotu,zdotu_n_1)
blasint N=1,incX=1,incY=1;
double x1[]={1.0,1.0};
double y1[]={1.0,2.0};
_Dcomplex result1=openblas_make_complex_double(0.0,0.0);
_Dcomplex result2=openblas_make_complex_double(-1.0,3.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
BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY);

@@ -281,8 +281,8 @@ 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};
_Dcomplex result1=openblas_make_complex_double(0.0,0.0);
_Dcomplex result2=openblas_make_complex_double(-9.0,32.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
BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY);
@@ -460,6 +460,25 @@ CTEST(swap,cswap_inc_0)
int main(int argc, const char ** argv){

CTEST_ADD(amax, samax);
CTEST_ADD (drotmg,rotmg);
CTEST_ADD (drotmg,rotmg_issue1452);
CTEST_ADD (drotmg, rotmg_D1eqD2_X1eqX2);
CTEST_ADD (axpy,daxpy_inc_0);
CTEST_ADD (axpy,zaxpy_inc_0);
CTEST_ADD (axpy,saxpy_inc_0);
CTEST_ADD (axpy,caxpy_inc_0);
CTEST_ADD (zdotu,zdotu_n_1);
CTEST_ADD (zdotu, zdotu_offset_1);
CTEST_ADD (dsdot,dsdot_n_1);
CTEST_ADD (rot,drot_inc_0);
CTEST_ADD (rot,zdrot_inc_0);
CTEST_ADD (rot,srot_inc_0);
CTEST_ADD (rot, csrot_inc_0);
CTEST_ADD (swap,dswap_inc_0);
CTEST_ADD (swap,zswap_inc_0);
CTEST_ADD (swap,sswap_inc_0);
CTEST:ADD (swap,cswap_inc_0);

int num_fail=0;

num_fail=ctest_main(argc, argv);


Loading…
Cancel
Save