| @@ -37,11 +37,9 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||||
| CTEST( zdotu,zdotu_n_1) | CTEST( zdotu,zdotu_n_1) | ||||
| { | { | ||||
| #ifndef MSVC | |||||
| blasint N=1,incX=1,incY=1; | blasint 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}; | ||||
| fprintf(stderr,"running test zdotu_n_1\n"); | |||||
| openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); | openblas_complex_double result1=openblas_make_complex_double(0.0,0.0); | ||||
| openblas_complex_double result2=openblas_make_complex_double(-1.0000,3.0000); | openblas_complex_double result2=openblas_make_complex_double(-1.0000,3.0000); | ||||
| @@ -59,14 +57,10 @@ fprintf(stderr,"running test zdotu_n_1\n"); | |||||
| ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); | ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); | ||||
| #endif | #endif | ||||
| #endif | |||||
| fprintf(stderr,"end of test zdotu_n_1\n"); | |||||
| return; | |||||
| } | } | ||||
| CTEST(zdotu, zdotu_offset_1) | CTEST(zdotu, zdotu_offset_1) | ||||
| { | { | ||||
| #ifndef MSVC | |||||
| blasint N=1,incX=1,incY=1; | blasint 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}; | ||||
| @@ -87,6 +81,4 @@ CTEST(zdotu, zdotu_offset_1) | |||||
| ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); | ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS); | ||||
| #endif | #endif | ||||
| #endif | |||||
| return; | |||||
| } | } | ||||