check abs zero inc

kseniyazaytseva · kseniyazaytseva · commit 4c554bd527cc · 2024-02-10T00:46:52.000+03:00
diff --git a/utest/test_extensions/test_damin.c b/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);
 }
 
 /**
diff --git a/utest/test_extensions/test_dzamax.c b/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);
 }
 
 /**
diff --git a/utest/test_extensions/test_dzamin.c b/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);
 }
 
 /**
diff --git a/utest/test_extensions/test_samin.c b/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);
 }
 
 /**
diff --git a/utest/test_extensions/test_scamax.c b/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);
 }
 
 /**
diff --git a/utest/test_extensions/test_scamin.c b/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);
 }
 
 /**

Original file line number	Diff line number	Diff line change
`@@ -61,11 +61,11 @@ CTEST(damin, step_zero){`
`61`	`61`	`blasint N = ELEMENTS, inc = 0;`
`62`	`62`	`double x[ELEMENTS];`
`63`	`63`	`for (i = 0; i < N; i ++) {`
`64`		`- x[i] = i + 1000;`
	`64`	`+ x[i] = i - 1000;`
`65`	`65`	`}`
`66`	`66`	`x[8] = 0.0;`
`67`	`67`	`double amin = BLASFUNC(damin)(&N, x, &inc);`
`68`		`- ASSERT_DBL_NEAR_TOL(x[0], amin, DOUBLE_EPS);`
	`68`	`+ ASSERT_DBL_NEAR_TOL(fabs(x[0]), amin, DOUBLE_EPS);`
`69`	`69`	`}`
`70`	`70`
`71`	`71`	`/**`
Original file line number	Diff line number	Diff line change
`@@ -61,10 +61,10 @@ CTEST(dzamax, step_zero){`
`61`	`61`	`blasint N = ELEMENTS * 2, inc = 0;`
`62`	`62`	`double x[ELEMENTS * 2];`
`63`	`63`	`for (i = 0; i < N; i ++) {`
`64`		`- x[i] = i + 1000;`
	`64`	`+ x[i] = i - 1000;`
`65`	`65`	`}`
`66`	`66`	`double amax = BLASFUNC(dzamax)(&N, x, &inc);`
`67`		`- ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amax, DOUBLE_EPS);`
	`67`	`+ ASSERT_DBL_NEAR_TOL((fabs(x[0]) + fabs(x[1])), amax, DOUBLE_EPS);`
`68`	`68`	`}`
`69`	`69`
`70`	`70`	`/**`
Original file line number	Diff line number	Diff line change
`@@ -61,11 +61,11 @@ CTEST(dzamin, step_zero){`
`61`	`61`	`blasint N = ELEMENTS * 2, inc = 0;`
`62`	`62`	`double x[ELEMENTS * 2];`
`63`	`63`	`for (i = 0; i < N; i ++) {`
`64`		`- x[i] = i + 1000;`
	`64`	`+ x[i] = i - 1000;`
`65`	`65`	`}`
`66`	`66`	`x[8] = 0.0;`
`67`	`67`	`double amin = BLASFUNC(dzamin)(&N, x, &inc);`
`68`		`- ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amin, DOUBLE_EPS);`
	`68`	`+ ASSERT_DBL_NEAR_TOL((fabs(x[0]) + fabs(x[1])), amin, DOUBLE_EPS);`
`69`	`69`	`}`
`70`	`70`
`71`	`71`	`/**`
Original file line number	Diff line number	Diff line change
`@@ -61,11 +61,11 @@ CTEST(samin, step_zero){`
`61`	`61`	`blasint N = ELEMENTS, inc = 0;`
`62`	`62`	`float x[ELEMENTS];`
`63`	`63`	`for (i = 0; i < N; i ++) {`
`64`		`- x[i] = i + 1000;`
	`64`	`+ x[i] = i - 1000;`
`65`	`65`	`}`
`66`	`66`	`x[8] = 0.0;`
`67`	`67`	`float amin = BLASFUNC(samin)(&N, x, &inc);`
`68`		`- ASSERT_DBL_NEAR_TOL(x[0], amin, SINGLE_EPS);`
	`68`	`+ ASSERT_DBL_NEAR_TOL(fabsf(x[0]), amin, SINGLE_EPS);`
`69`	`69`	`}`
`70`	`70`
`71`	`71`	`/**`
Original file line number	Diff line number	Diff line change
`@@ -61,10 +61,10 @@ CTEST(scamax, step_zero){`
`61`	`61`	`blasint N = ELEMENTS * 2, inc = 0;`
`62`	`62`	`float x[ELEMENTS * 2];`
`63`	`63`	`for (i = 0; i < N; i ++) {`
`64`		`- x[i] = i + 1000;`
	`64`	`+ x[i] = i - 1000;`
`65`	`65`	`}`
`66`	`66`	`float amax = BLASFUNC(scamax)(&N, x, &inc);`
`67`		`- ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amax, SINGLE_EPS);`
	`67`	`+ ASSERT_DBL_NEAR_TOL((fabsf(x[0]) + fabsf(x[1])), amax, SINGLE_EPS);`
`68`	`68`	`}`
`69`	`69`
`70`	`70`	`/**`
Original file line number	Diff line number	Diff line change
`@@ -61,11 +61,11 @@ CTEST(scamin, step_zero){`
`61`	`61`	`blasint N = ELEMENTS * 2, inc = 0;`
`62`	`62`	`float x[ELEMENTS * 2];`
`63`	`63`	`for (i = 0; i < N; i ++) {`
`64`		`- x[i] = i + 1000;`
	`64`	`+ x[i] = i - 1000;`
`65`	`65`	`}`
`66`	`66`	`x[8] = 0.0f;`
`67`	`67`	`float amin = BLASFUNC(scamin)(&N, x, &inc);`
`68`		`- ASSERT_DBL_NEAR_TOL((x[0] + x[1]), amin, SINGLE_EPS);`
	`68`	`+ ASSERT_DBL_NEAR_TOL((fabsf(x[0]) + fabsf(x[1])), amin, SINGLE_EPS);`
`69`	`69`	`}`
`70`	`70`
`71`	`71`	`/**`