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