From 3a4a9b21eb8d5b18e6b18b077d7c8282504a3409 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 9 Feb 2025 20:16:03 +0100 Subject: [PATCH 1/2] Disable tests with incx,incy=0 (undefined behavior) --- utest/test_extensions/test_crot.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/utest/test_extensions/test_crot.c b/utest/test_extensions/test_crot.c index 1ff4568132..f400b345ca 100644 --- a/utest/test_extensions/test_crot.c +++ b/utest/test_extensions/test_crot.c @@ -166,7 +166,7 @@ static float c_api_check_csrot(blasint n, blasint inc_x, blasint inc_y, float *c norm += cblas_scnrm2(n, data_crot.y_test, inc_y_abs); return (norm / 2); } - +#if 0 /** * Fortran API specific test * Test crot by comparing it with caxpby. @@ -192,7 +192,7 @@ CTEST(crot, inc_x_0_inc_y_0) float norm = check_csrot(n, inc_x, inc_y, c, s); ASSERT_DBL_NEAR_TOL(0.0f, norm, SINGLE_EPS); } - +#endif /** * Fortran API specific test * Test crot by comparing it with caxpby. @@ -478,7 +478,7 @@ CTEST(crot, check_n_zero) float norm = check_csrot(n, inc_x, inc_y, c, s); ASSERT_DBL_NEAR_TOL(0.0f, norm, SINGLE_EPS); } - +#if 0 /** * C API specific test * Test crot by comparing it with caxpby. @@ -504,7 +504,7 @@ CTEST(crot, c_api_inc_x_0_inc_y_0) float norm = c_api_check_csrot(n, inc_x, inc_y, c, s); ASSERT_DBL_NEAR_TOL(0.0f, norm, SINGLE_EPS); } - +#endif /** * C API specific test * Test crot by comparing it with caxpby. From 57208b8bcea098213c908ae35001c233e33dcd38 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 9 Feb 2025 20:17:29 +0100 Subject: [PATCH 2/2] Disable tests with incx,incy=0 (undefined behavior) --- utest/test_extensions/test_zrot.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/utest/test_extensions/test_zrot.c b/utest/test_extensions/test_zrot.c index c5ae22fc57..f4ee06391c 100644 --- a/utest/test_extensions/test_zrot.c +++ b/utest/test_extensions/test_zrot.c @@ -164,7 +164,7 @@ static double c_api_check_zdrot(blasint n, blasint inc_x, blasint inc_y, double norm += cblas_dznrm2(n, data_zrot.y_test, inc_y_abs); return (norm / 2); } - +#if 0 /** * Fortran API specific test * Test zrot by comparing it with zaxpby. @@ -190,7 +190,7 @@ CTEST(zrot, inc_x_0_inc_y_0) double norm = check_zdrot(n, inc_x, inc_y, c, s); ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); } - +#endif /** * Fortran API specific test * Test zrot by comparing it with zaxpby. @@ -476,7 +476,7 @@ CTEST(zrot, check_n_zero) double norm = check_zdrot(n, inc_x, inc_y, c, s); ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); } - +#if 0 /** * C API specific test * Test zrot by comparing it with zaxpby. @@ -502,7 +502,7 @@ CTEST(zrot, c_api_inc_x_0_inc_y_0) double norm = c_api_check_zdrot(n, inc_x, inc_y, c, s); ASSERT_DBL_NEAR_TOL(0.0, norm, DOUBLE_EPS); } - +#endif /** * C API specific test * Test zrot by comparing it with zaxpby.