OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Merge pull request #1481 from martin-frbg/utest-fixup 

Fix transposition of expected and computed values in error message
tags/v0.3.0
Martin Kroeker GitHub 8 years ago
parent
0ab5bf1746 69a8aa6de2
commit
72e65157df
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 33 additions and 34 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +8
    -8
      utest/test_axpy.c
  2. +8
    -9
      utest/test_dotu.c
  3. +1
    -1
      utest/test_dsdot.c
  4. +8
    -8
      utest/test_rot.c
  5. +8
    -8
      utest/test_swap.c

+ 8
- 8
utest/test_axpy.c View File

@@ -48,8 +48,8 @@ CTEST(axpy,daxpy_inc_0)
BLASFUNC(daxpy)(&N,&a,x1,&incX,y1,&incY); BLASFUNC(daxpy)(&N,&a,x1,&incX,y1,&incY);


for(i=0; i<N; i++){ for(i=0; i<N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -67,8 +67,8 @@ CTEST(axpy,zaxpy_inc_0)
BLASFUNC(zaxpy)(&N,a,x1,&incX,y1,&incY); BLASFUNC(zaxpy)(&N,a,x1,&incX,y1,&incY);


for(i=0; i<2*N; i++){ for(i=0; i<2*N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -86,8 +86,8 @@ CTEST(axpy,saxpy_inc_0)
BLASFUNC(saxpy)(&N,&a,x1,&incX,y1,&incY); BLASFUNC(saxpy)(&N,&a,x1,&incX,y1,&incY);


for(i=0; i<N; i++){ for(i=0; i<N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -105,7 +105,7 @@ CTEST(axpy,caxpy_inc_0)
BLASFUNC(caxpy)(&N,a,x1,&incX,y1,&incY); BLASFUNC(caxpy)(&N,a,x1,&incX,y1,&incY);


for(i=0; i<2*N; i++){ for(i=0; i<2*N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }

+ 8
- 9
utest/test_dotu.c View File

@@ -33,7 +33,6 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.


#include "openblas_utest.h" #include "openblas_utest.h"
#include <complex.h> #include <complex.h>
#include <stdio.h>


CTEST( zdotu,zdotu_n_1) CTEST( zdotu,zdotu_n_1)
{ {
@@ -50,11 +49,11 @@ CTEST( zdotu,zdotu_n_1)
#endif #endif
#ifdef OPENBLAS_COMPLEX_STRUCT #ifdef OPENBLAS_COMPLEX_STRUCT
ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result2.real, result1.real, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result2.imag, result1.imag, DOUBLE_EPS);
#else #else
ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(creal(result2), creal(result1), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(cimag(result2), cimag(result1), DOUBLE_EPS);
#endif #endif
} }
@@ -74,11 +73,11 @@ CTEST(zdotu, zdotu_offset_1)
#endif #endif
#ifdef OPENBLAS_COMPLEX_STRUCT #ifdef OPENBLAS_COMPLEX_STRUCT
ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result2.real, result1.real, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(result2.imag, result1.imag, DOUBLE_EPS);
#else #else
ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(creal(result2), creal(result1), DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(cimag(result2), cimag(result1), DOUBLE_EPS);
#endif #endif


} }

+ 1
- 1
utest/test_dsdot.c View File

@@ -44,6 +44,6 @@ CTEST(dsdot,dsdot_n_1)
double res1=0.0f, res2=-0.00239335360107; double res1=0.0f, res2=-0.00239335360107;


res1=BLASFUNC(dsdot)(&n, &x, &incx, &y, &incy); res1=BLASFUNC(dsdot)(&n, &x, &incx, &y, &incy);
ASSERT_DBL_NEAR_TOL(res1, res2, DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS);


} }

+ 8
- 8
utest/test_rot.c View File

@@ -48,8 +48,8 @@ CTEST(rot,drot_inc_0)
BLASFUNC(drot)(&N,x1,&incX,y1,&incY,&c,&s); BLASFUNC(drot)(&N,x1,&incX,y1,&incY,&c,&s);


for(i=0; i<N; i++){ for(i=0; i<N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -68,8 +68,8 @@ CTEST(rot,zdrot_inc_0)
BLASFUNC(zdrot)(&N,x1,&incX,y1,&incY,&c,&s); BLASFUNC(zdrot)(&N,x1,&incX,y1,&incY,&c,&s);


for(i=0; i<2*N; i++){ for(i=0; i<2*N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -87,8 +87,8 @@ CTEST(rot,srot_inc_0)
BLASFUNC(srot)(&N,x1,&incX,y1,&incY,&c,&s); BLASFUNC(srot)(&N,x1,&incX,y1,&incY,&c,&s);


for(i=0; i<N; i++){ for(i=0; i<N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], SINGLE_EPS);
} }
} }


@@ -106,7 +106,7 @@ CTEST(rot, csrot_inc_0)
BLASFUNC(csrot)(&N,x1,&incX,y1,&incY,&c,&s); BLASFUNC(csrot)(&N,x1,&incX,y1,&incY,&c,&s);


for(i=0; i<2*N; i++){ for(i=0; i<2*N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], SINGLE_EPS);
} }
} }

+ 8
- 8
utest/test_swap.c View File

@@ -46,8 +46,8 @@ CTEST(swap,dswap_inc_0)
BLASFUNC(dswap)(&N,x1,&incX,y1,&incY); BLASFUNC(dswap)(&N,x1,&incX,y1,&incY);


for(i=0; i<N; i++){ for(i=0; i<N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -64,8 +64,8 @@ CTEST(swap,zswap_inc_0)
BLASFUNC(zswap)(&N,x1,&incX,y1,&incY); BLASFUNC(zswap)(&N,x1,&incX,y1,&incY);


for(i=0; i<2*N; i++){ for(i=0; i<2*N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], DOUBLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], DOUBLE_EPS);
} }
} }


@@ -82,8 +82,8 @@ CTEST(swap,sswap_inc_0)
BLASFUNC(sswap)(&N,x1,&incX,y1,&incY); BLASFUNC(sswap)(&N,x1,&incX,y1,&incY);


for(i=0; i<N; i++){ for(i=0; i<N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], SINGLE_EPS);
} }
} }


@@ -100,7 +100,7 @@ CTEST(swap,cswap_inc_0)
BLASFUNC(cswap)(&N,x1,&incX,y1,&incY); BLASFUNC(cswap)(&N,x1,&incX,y1,&incY);


for(i=0; i<2*N; i++){ for(i=0; i<2*N; i++){
ASSERT_DBL_NEAR_TOL(x1[i], x2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y1[i], y2[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(x2[i], x1[i], SINGLE_EPS);
ASSERT_DBL_NEAR_TOL(y2[i], y1[i], SINGLE_EPS);
} }
} }

Write Preview
Loading…
Cancel
Save