| @@ -266,10 +266,8 @@ CTEST( zdotu,zdotu_n_1) | |||||
| int N=1,incX=1,incY=1; | int N=1,incX=1,incY=1; | ||||
| double x1[]={1.0,1.0}; | double x1[]={1.0,1.0}; | ||||
| double y1[]={1.0,2.0}; | double y1[]={1.0,2.0}; | ||||
| double x2[]={1.0,1.0}; | |||||
| double y2[]={1.0,2.0}; | |||||
| _Complex result1=0.0; | |||||
| _Complex result2={-1.0000+3.0000*I}; | |||||
| _Complex double result1=openblas_make_complex_double(0.0,0.0); | |||||
| _Complex double result2=openblas_make_complex_double(-1.0,3.0); | |||||
| //OpenBLAS | //OpenBLAS | ||||
| result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); | result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); | ||||
| @@ -283,10 +281,9 @@ CTEST(zdotu, zdotu_offset_1) | |||||
| int N=1,incX=1,incY=1; | int N=1,incX=1,incY=1; | ||||
| double x1[]={1.0,2.0,3.0,4.0}; | double x1[]={1.0,2.0,3.0,4.0}; | ||||
| double y1[]={5.0,6.0,7.0,8.0}; | double y1[]={5.0,6.0,7.0,8.0}; | ||||
| double x2[]={1.0,2.0,3.0,4.0}; | |||||
| double y2[]={5.0,6.0,7.0,8.0}; | |||||
| _Complex result1=0.0; | |||||
| _Complex result2={-9.0000+32.0000*I}; | |||||
| _Complex double result1=openblas_make_complex_double(0.0,0.0); | |||||
| _Complex double result2=openblas_make_complex_double(-9.0,32.0); | |||||
| //OpenBLAS | //OpenBLAS | ||||
| result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); | result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); | ||||