floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove printfs

This commit is contained in:
Martin Kroeker 2018-02-20 08:06:08 +01:00 committed by GitHub
parent 1daab20180
commit 4a1f8a26c1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utest/test_dotu.c
View File

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