From cfabc48190bb3ac1b5c6ace9ee560477394054c8 Mon Sep 17 00:00:00 2001 From: kseniyazaytseva Date: Thu, 8 Feb 2024 00:22:15 +0300 Subject: [PATCH] Update rotg tests --- utest/test_extensions/test_crotg.c | 24 ++++++++++++------------ utest/test_extensions/test_zrotg.c | 16 ++++++++-------- 2 files changed, 20 insertions(+), 20 deletions(-) diff --git a/utest/test_extensions/test_crotg.c b/utest/test_extensions/test_crotg.c index 9db7dc7d3..84875ccf7 100644 --- a/utest/test_extensions/test_crotg.c +++ b/utest/test_extensions/test_crotg.c @@ -48,10 +48,10 @@ CTEST(crotg, zero_a) float sc; BLASFUNC(crotg)(sa, sb, &sc, ss); ASSERT_DBL_NEAR_TOL(0.0f, sc, SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0f, ss[0], SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0f, sa[0], SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0f, sa[1], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(-0.70711f, ss[1], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(1.41421f, sa[0], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.0f, sa[1], SINGLE_EPS); } /** @@ -83,8 +83,8 @@ CTEST(crotg, zero_real) float ss[2]; float sc; BLASFUNC(crotg)(sa, sb, &sc, ss); - ASSERT_DBL_NEAR_TOL(0.7071f, sc, SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(0.7071f, ss[0], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70711f, sc, SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS); ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS); ASSERT_DBL_NEAR_TOL(0.0f, sa[0], SINGLE_EPS); ASSERT_DBL_NEAR_TOL(1.41421f, sa[1], SINGLE_EPS); @@ -174,10 +174,10 @@ CTEST(crotg, c_api_zero_a) float sc; cblas_crotg(sa, sb, &sc, ss); ASSERT_DBL_NEAR_TOL(0.0f, sc, SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0f, ss[0], SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0f, sa[0], SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0f, sa[1], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(-0.70711f, ss[1], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(1.41421f, sa[0], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.0f, sa[1], SINGLE_EPS); } /** @@ -209,8 +209,8 @@ CTEST(crotg, c_api_zero_real) float ss[2]; float sc; cblas_crotg(sa, sb, &sc, ss); - ASSERT_DBL_NEAR_TOL(0.7071f, sc, SINGLE_EPS); - ASSERT_DBL_NEAR_TOL(0.7071f, ss[0], SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70711f, sc, SINGLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70711f, ss[0], SINGLE_EPS); ASSERT_DBL_NEAR_TOL(0.0f, ss[1], SINGLE_EPS); ASSERT_DBL_NEAR_TOL(0.0f, sa[0], SINGLE_EPS); ASSERT_DBL_NEAR_TOL(1.41421f, sa[1], SINGLE_EPS); diff --git a/utest/test_extensions/test_zrotg.c b/utest/test_extensions/test_zrotg.c index 310121422..1de95447d 100644 --- a/utest/test_extensions/test_zrotg.c +++ b/utest/test_extensions/test_zrotg.c @@ -48,10 +48,10 @@ CTEST(zrotg, zero_a) double sc; BLASFUNC(zrotg)(sa, sb, &sc, ss); ASSERT_DBL_NEAR_TOL(0.0, sc, DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0, ss[0], DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(0.0, ss[1], DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0, sa[0], DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0, sa[1], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70710678118655, ss[0], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(-0.70710678118655, ss[1], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(1.41421356237310, sa[0], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(0.0, sa[1], DOUBLE_EPS); } /** @@ -174,10 +174,10 @@ CTEST(zrotg, c_api_zero_a) double sc; cblas_zrotg(sa, sb, &sc, ss); ASSERT_DBL_NEAR_TOL(0.0, sc, DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0, ss[0], DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(0.0, ss[1], DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0, sa[0], DOUBLE_EPS); - ASSERT_DBL_NEAR_TOL(1.0, sa[1], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(0.70710678118655, ss[0], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(-0.70710678118655, ss[1], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(1.41421356237310, sa[0], DOUBLE_EPS); + ASSERT_DBL_NEAR_TOL(0.0, sa[1], DOUBLE_EPS); } /**