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

Fix uninitialized variables in the extensions utest

This commit is contained in:
Martin Kroeker 2024-04-13 12:26:35 +02:00 committed by GitHub
parent 83ec1f86ec
commit b883526a34
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
5 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utest/test_extensions/test_damin.c
View File

@ -351,4 +351,4 @@ CTEST(damin, negative_step_2_N_70){
double amin = BLASFUNC(damin)(&N, x, &inc); double amin = BLASFUNC(damin)(&N, x, &inc);
ASSERT_DBL_NEAR_TOL(1.0, amin, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(1.0, amin, DOUBLE_EPS);
} }
#endif #endif

4
utest/test_extensions/test_dsum.c
View File

@ -62,6 +62,7 @@ CTEST(dsum, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
x[0]=0.;
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N * inc; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -243,6 +244,7 @@ CTEST(dsum, c_api_step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
x[0]=0.;
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N * inc; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -400,4 +402,4 @@ CTEST(dsum, c_api_step_2_N_50){
double sum = cblas_dsum(N, x, inc); double sum = cblas_dsum(N, x, inc);
ASSERT_DBL_NEAR_TOL(50.0, sum, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(50.0, sum, DOUBLE_EPS);
} }
#endif #endif

4
utest/test_extensions/test_dzsum.c
View File

@ -62,6 +62,7 @@ CTEST(dzsum, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
x[0] = 0.0;
for (i = 0; i < N * inc * 2; i ++) { for (i = 0; i < N * inc * 2; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -243,6 +244,7 @@ CTEST(dzsum, c_api_step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
double x[ELEMENTS]; double x[ELEMENTS];
x[0] = 0.0;
for (i = 0; i < N * inc * 2; i ++) { for (i = 0; i < N * inc * 2; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -400,4 +402,4 @@ CTEST(dzsum, c_api_step_2_N_50){
double sum = cblas_dzsum(N, x, inc); double sum = cblas_dzsum(N, x, inc);
ASSERT_DBL_NEAR_TOL(0.0, sum, DOUBLE_EPS); ASSERT_DBL_NEAR_TOL(0.0, sum, DOUBLE_EPS);
} }
#endif #endif

4
utest/test_extensions/test_scsum.c
View File

@ -62,6 +62,7 @@ CTEST(scsum, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
x[0] = 0.0f;
for (i = 0; i < N * inc * 2; i ++) { for (i = 0; i < N * inc * 2; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -243,6 +244,7 @@ CTEST(scsum, c_api_step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
x[0] = 0.0f;
for (i = 0; i < N * inc * 2; i ++) { for (i = 0; i < N * inc * 2; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -400,4 +402,4 @@ CTEST(scsum, c_api_step_2_N_50){
float sum = cblas_scsum(N, x, inc); float sum = cblas_scsum(N, x, inc);
ASSERT_DBL_NEAR_TOL(0.0f, sum, SINGLE_EPS); ASSERT_DBL_NEAR_TOL(0.0f, sum, SINGLE_EPS);
} }
#endif #endif

4
utest/test_extensions/test_ssum.c
View File

@ -62,6 +62,7 @@ CTEST(ssum, step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
x[0] = 0.0f;
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N * inc; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -243,6 +244,7 @@ CTEST(ssum, c_api_step_zero){
blasint i; blasint i;
blasint N = ELEMENTS, inc = 0; blasint N = ELEMENTS, inc = 0;
float x[ELEMENTS]; float x[ELEMENTS];
x[0] = 0.0f;
for (i = 0; i < N * inc; i ++) { for (i = 0; i < N * inc; i ++) {
x[i] = i + 1000; x[i] = i + 1000;
} }
@ -400,4 +402,4 @@ CTEST(ssum, c_api_step_2_N_50){
float sum = cblas_ssum(N, x, inc); float sum = cblas_ssum(N, x, inc);
ASSERT_DBL_NEAR_TOL(50.0f, sum, SINGLE_EPS); ASSERT_DBL_NEAR_TOL(50.0f, sum, SINGLE_EPS);
} }
#endif #endif