@@ -164,7 +164,7 @@ static double c_api_check_zdrot(blasint n, blasint inc_x, blasint inc_y, double
164164 norm += cblas_dznrm2 (n , data_zrot .y_test , inc_y_abs );
165165 return (norm / 2 );
166166}
167-
167+ #if 0
168168/**
169169 * Fortran API specific test
170170 * Test zrot by comparing it with zaxpby.
@@ -190,7 +190,7 @@ CTEST(zrot, inc_x_0_inc_y_0)
190190 double norm = check_zdrot (n , inc_x , inc_y , c , s );
191191 ASSERT_DBL_NEAR_TOL (0.0 , norm , DOUBLE_EPS );
192192}
193-
193+ #endif
194194/**
195195 * Fortran API specific test
196196 * Test zrot by comparing it with zaxpby.
@@ -476,7 +476,7 @@ CTEST(zrot, check_n_zero)
476476 double norm = check_zdrot (n , inc_x , inc_y , c , s );
477477 ASSERT_DBL_NEAR_TOL (0.0 , norm , DOUBLE_EPS );
478478}
479-
479+ #if 0
480480/**
481481 * C API specific test
482482 * Test zrot by comparing it with zaxpby.
@@ -502,7 +502,7 @@ CTEST(zrot, c_api_inc_x_0_inc_y_0)
502502 double norm = c_api_check_zdrot (n , inc_x , inc_y , c , s );
503503 ASSERT_DBL_NEAR_TOL (0.0 , norm , DOUBLE_EPS );
504504}
505-
505+ #endif
506506/**
507507 * C API specific test
508508 * Test zrot by comparing it with zaxpby.
0 commit comments