@@ -164,7 +164,7 @@ static double c_api_check_zdrot(blasint n, blasint inc_x, blasint inc_y, double
164
164
norm += cblas_dznrm2 (n , data_zrot .y_test , inc_y_abs );
165
165
return (norm / 2 );
166
166
}
167
-
167
+ #if 0
168
168
/**
169
169
* Fortran API specific test
170
170
* Test zrot by comparing it with zaxpby.
@@ -190,7 +190,7 @@ CTEST(zrot, inc_x_0_inc_y_0)
190
190
double norm = check_zdrot (n , inc_x , inc_y , c , s );
191
191
ASSERT_DBL_NEAR_TOL (0.0 , norm , DOUBLE_EPS );
192
192
}
193
-
193
+ #endif
194
194
/**
195
195
* Fortran API specific test
196
196
* Test zrot by comparing it with zaxpby.
@@ -476,7 +476,7 @@ CTEST(zrot, check_n_zero)
476
476
double norm = check_zdrot (n , inc_x , inc_y , c , s );
477
477
ASSERT_DBL_NEAR_TOL (0.0 , norm , DOUBLE_EPS );
478
478
}
479
-
479
+ #if 0
480
480
/**
481
481
* C API specific test
482
482
* Test zrot by comparing it with zaxpby.
@@ -502,7 +502,7 @@ CTEST(zrot, c_api_inc_x_0_inc_y_0)
502
502
double norm = c_api_check_zdrot (n , inc_x , inc_y , c , s );
503
503
ASSERT_DBL_NEAR_TOL (0.0 , norm , DOUBLE_EPS );
504
504
}
505
-
505
+ #endif
506
506
/**
507
507
* C API specific test
508
508
* Test zrot by comparing it with zaxpby.
0 commit comments