check abs zero inc

utest/test_extensions/test_damin.c

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

utest/test_extensions/test_dzamax.c

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

utest/test_extensions/test_dzamin.c

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

utest/test_extensions/test_samin.c

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

utest/test_extensions/test_scamax.c

@@ -61,10 +61,10 @@ CTEST(scamax, step_zero){
    blasint N = ELEMENTS * 2, inc = 0;
    float x[ELEMENTS * 2];
    for (i = 0; i < N; i ++) {
-      x[i] = i + 1000;
+      x[i] = i - 1000;
    }
    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);
 }
 
 /**

utest/test_extensions/test_scamin.c

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