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

check abs zero inc

This commit is contained in:
kseniyazaytseva 2024-02-10 00:46:52 +03:00
parent 46de7c8a2b
commit 4c554bd527
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utest/test_extensions/test_damin.c
View File

@ -61,11 +61,11 @@ CTEST(damin, step_zero){
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
for (i = 0; i < N; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i - 1000;
} }
x[8] = 0.0; x[8] = 0.0;
double amin = BLASFUNC(damin)(&N, x, &inc); double amin = BLASFUNC(damin)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL(x[0], amin, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(fabs(x[0]), amin, DOUBLE_EPS);
} }
/** /**

4
utest/test_extensions/test_dzamax.c
View File

@ -61,10 +61,10 @@ CTEST(dzamax, step_zero){
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
double x[ELEMENTS * 2]; double x[ELEMENTS * 2];
for (i = 0; i < N; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i - 1000;
} }
double amax = BLASFUNC(dzamax)(&N, x, &inc); double amax = BLASFUNC(dzamax)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amax, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL((fabs(x[0]) + fabs(x[1])), amax, DOUBLE_EPS);
} }
/** /**

4
utest/test_extensions/test_dzamin.c
View File

@ -61,11 +61,11 @@ CTEST(dzamin, step_zero){
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
double x[ELEMENTS * 2]; double x[ELEMENTS * 2];
for (i = 0; i < N; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i - 1000;
} }
x[8] = 0.0; x[8] = 0.0;
double amin = BLASFUNC(dzamin)(&N, x, &inc); double amin = BLASFUNC(dzamin)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amin, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL((fabs(x[0]) + fabs(x[1])), amin, DOUBLE_EPS);
} }
/** /**

4
utest/test_extensions/test_samin.c
View File

@ -61,11 +61,11 @@ CTEST(samin, step_zero){
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
for (i = 0; i < N; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i - 1000;
} }
x[8] = 0.0; x[8] = 0.0;
float amin = BLASFUNC(samin)(&N, x, &inc); float amin = BLASFUNC(samin)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL(x[0], amin, SINGLE_EPS); ASSERT_DBL_NEAR_TOL(fabsf(x[0]), amin, SINGLE_EPS);
} }
/** /**

4
utest/test_extensions/test_scamax.c
View File

@ -61,10 +61,10 @@ CTEST(scamax, step_zero){
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
float x[ELEMENTS * 2]; float x[ELEMENTS * 2];
for (i = 0; i < N; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i - 1000;
} }
float amax = BLASFUNC(scamax)(&N, x, &inc); float amax = BLASFUNC(scamax)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amax, SINGLE_EPS); ASSERT_DBL_NEAR_TOL((fabsf(x[0]) + fabsf(x[1])), amax, SINGLE_EPS);
} }
/** /**

4
utest/test_extensions/test_scamin.c
View File

@ -61,11 +61,11 @@ CTEST(scamin, step_zero){
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
float x[ELEMENTS * 2]; float x[ELEMENTS * 2];
for (i = 0; i < N; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i - 1000;
} }
x[8] = 0.0f; x[8] = 0.0f;
float amin = BLASFUNC(scamin)(&N, x, &inc); float amin = BLASFUNC(scamin)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amin, SINGLE_EPS); ASSERT_DBL_NEAR_TOL((fabsf(x[0]) + fabsf(x[1])), amin, SINGLE_EPS);
} }
/** /**