Update rotg tests

Author: kseniyazaytseva

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);

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);
 }
 
 /**