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

Fix zero step tests

This commit is contained in:
kseniyazaytseva 2024-02-08 00:19:54 +03:00
parent b6949ce74c
commit ff10e6b6dc
8 changed files with 21 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utest/test_extensions/test_damin.c
View File

@ -60,12 +60,12 @@ CTEST(damin, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
for (i = 0; i < N * inc; 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(0.0, amin, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(x[0], amin, DOUBLE_EPS);
} }
/** /**

7
utest/test_extensions/test_dzamax.c
View File

@ -59,13 +59,12 @@ CTEST(dzamax, bad_args_N_0){
CTEST(dzamax, step_zero){ CTEST(dzamax, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS * 2];
for (i = 0; i < N * inc * 2; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
x[8] = 0.0;
double amax = BLASFUNC(dzamax)(&N, x, &inc); double amax = BLASFUNC(dzamax)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL(0.0, amax, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amax, DOUBLE_EPS);
} }
/** /**

6
utest/test_extensions/test_dzamin.c
View File

@ -59,13 +59,13 @@ CTEST(dzamin, bad_args_N_0){
CTEST(dzamin, step_zero){ CTEST(dzamin, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS * 2];
for (i = 0; i < N * inc * 2; 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(0.0, amin, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amin, DOUBLE_EPS);
} }
/** /**

4
utest/test_extensions/test_idamin.c
View File

@ -62,7 +62,7 @@ CTEST(idamin, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
x[8] = 0.0; x[8] = 0.0;
@ -435,7 +435,7 @@ CTEST(idamin, c_api_step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
x[8] = 0.0; x[8] = 0.0;

4
utest/test_extensions/test_isamin.c
View File

@ -62,7 +62,7 @@ CTEST(isamin, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
x[8] = 0.0f; x[8] = 0.0f;
@ -435,7 +435,7 @@ CTEST(isamin, c_api_step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
x[8] = 0.0f; x[8] = 0.0f;

6
utest/test_extensions/test_samin.c
View File

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

7
utest/test_extensions/test_scamax.c
View File

@ -59,13 +59,12 @@ CTEST(scamax, bad_args_N_0){
CTEST(scamax, step_zero){ CTEST(scamax, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS * 2];
for (i = 0; i < N * inc * 2; i ++) { for (i = 0; i < N; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
x[8] = 0.0f;
float amax = BLASFUNC(scamax)(&N, x, &inc); float amax = BLASFUNC(scamax)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL(0.0f, amax, SINGLE_EPS); ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amax, SINGLE_EPS);
} }
/** /**

6
utest/test_extensions/test_scamin.c
View File

@ -59,13 +59,13 @@ CTEST(scamin, bad_args_N_0){
CTEST(scamin, step_zero){ CTEST(scamin, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS * 2, inc = 0; blasint N = ELEMENTS * 2, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS * 2];
for (i = 0; i < N * inc * 2; 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(0.0f, amin, SINGLE_EPS); ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amin, SINGLE_EPS);
} }
/** /**