Merge pull request #4634 from martin-frbg/utest0

Fix uninitialized variables in the extensions utest

Author: martin-frbg

utest/test_extensions/test_damin.c

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

utest/test_extensions/test_dsum.c

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

utest/test_extensions/test_dzsum.c

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

utest/test_extensions/test_scsum.c

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

utest/test_extensions/test_ssum.c

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