diff --git a/utest/test_extensions/test_damin.c b/utest/test_extensions/test_damin.c index d492343ed..fdd2bc658 100644 --- a/utest/test_extensions/test_damin.c +++ b/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); } /** diff --git a/utest/test_extensions/test_dzamax.c b/utest/test_extensions/test_dzamax.c index edea3de8f..bdb3a4f18 100644 --- a/utest/test_extensions/test_dzamax.c +++ b/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); } /** diff --git a/utest/test_extensions/test_dzamin.c b/utest/test_extensions/test_dzamin.c index 916eede92..9fcf87b7b 100644 --- a/utest/test_extensions/test_dzamin.c +++ b/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); } /** diff --git a/utest/test_extensions/test_idamin.c b/utest/test_extensions/test_idamin.c index 9f099f666..6a7ed9d1e 100644 --- a/utest/test_extensions/test_idamin.c +++ b/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; diff --git a/utest/test_extensions/test_isamin.c b/utest/test_extensions/test_isamin.c index df8dead07..4ff235b83 100644 --- a/utest/test_extensions/test_isamin.c +++ b/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; diff --git a/utest/test_extensions/test_samin.c b/utest/test_extensions/test_samin.c index 5c747a0f6..2e3a73797 100644 --- a/utest/test_extensions/test_samin.c +++ b/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); } /** diff --git a/utest/test_extensions/test_scamax.c b/utest/test_extensions/test_scamax.c index 39d7201ff..0f49ebfad 100644 --- a/utest/test_extensions/test_scamax.c +++ b/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); } /** diff --git a/utest/test_extensions/test_scamin.c b/utest/test_extensions/test_scamin.c index 4baa23184..0f0414a1c 100644 --- a/utest/test_extensions/test_scamin.c +++ b/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); } /**