Fix zero step tests

Author: kseniyazaytseva

utest/test_extensions/test_damin.c

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

utest/test_extensions/test_dzamax.c

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

utest/test_extensions/test_dzamin.c

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

utest/test_extensions/test_idamin.c

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

utest/test_extensions/test_isamin.c

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

utest/test_extensions/test_samin.c

@@ -60,12 +60,12 @@ CTEST(samin, step_zero){
    blasint i;
    blasint N = ELEMENTS, inc = 0;
    float x[ELEMENTS];
-   for (i = 0; i < N  * inc; i ++) {
+   for (i = 0; i < N; i ++) {
       x[i] = i + 1000;
    }
-   x[8] = 0.0f;
+   x[8] = 0.0;
    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);
 }
 
 /**

utest/test_extensions/test_scamax.c

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

utest/test_extensions/test_scamin.c

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