floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix utest compilation 

Introduced recently when adding new test cases for ZSCAL

- include cblas is needed for cblas_zscal
- ASSERT macro does not exist
- missing closing )
This commit is contained in:
Pierrick Bouvier 2024-01-18 18:20:37 +04:00
parent 6f0e0e4021
commit a4992e09bc
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
utest/utest_main2.c
View File

@ -38,6 +38,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#define CTEST_SEGFAULT #define CTEST_SEGFAULT
#define CTEST_ADD_TESTS_MANUALLY #define CTEST_ADD_TESTS_MANUALLY
#include "cblas.h"
#include "openblas_utest.h" #include "openblas_utest.h"
CTEST(amax, samax){ CTEST(amax, samax){
@ -623,10 +624,10 @@ CTEST(zscal, i_nan)
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 }; double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0}; double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0};
cblas_zscal(9, i, &nan, 1); cblas_zscal(9, i, &nan, 1);
ASSERT(isnan(nan[0]); ASSERT_TRUE(isnan(nan[0]));
ASSERT(isnan(nan[1]); ASSERT_TRUE(isnan(nan[1]));
ASSERT(isnan(nan[16]); ASSERT_TRUE(isnan(nan[16]));
ASSERT(isnan(nan[17]); ASSERT_TRUE(isnan(nan[17]));
} }
CTEST(zscal, nan_i) CTEST(zscal, nan_i)
@ -634,10 +635,10 @@ CTEST(zscal, nan_i)
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 }; double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0}; double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0};
cblas_zscal(9, &nan, &i, 1); cblas_zscal(9, &nan, &i, 1);
ASSERT(isnan(i[0]); ASSERT_TRUE(isnan(i[0]));
ASSERT(isnan(i[1]); ASSERT_TRUE(isnan(i[1]));
ASSERT(isnan(i[16]); ASSERT_TRUE(isnan(i[16]));
ASSERT(isnan(i[17]); ASSERT_TRUE(isnan(i[17]));
} }
CTEST(zscal, i_inf) CTEST(zscal, i_inf)
@ -645,10 +646,10 @@ CTEST(zscal, i_inf)
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 }; double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0}; double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
cblas_zscal(9, i, &inf, 1); cblas_zscal(9, i, &inf, 1);
ASSERT(isnan(inf[0]); ASSERT_TRUE(isnan(inf[0]));
ASSERT(isinf(inf[1]); ASSERT_TRUE(isinf(inf[1]));
ASSERT(isnan(inf[16]); ASSERT_TRUE(isnan(inf[16]));
ASSERT(isinf(inf[17]); ASSERT_TRUE(isinf(inf[17]));
} }
CTEST(zscal, inf_i) CTEST(zscal, inf_i)
@ -656,10 +657,10 @@ CTEST(zscal, inf_i)
double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 }; double i[] = {0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 };
double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0}; double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
cblas_zscal(9, &inf, &i, 1); cblas_zscal(9, &inf, &i, 1);
ASSERT(isnan(i[0]); ASSERT_TRUE(isnan(i[0]));
ASSERT(isinf(i[1]); ASSERT_TRUE(isinf(i[1]));
ASSERT(isnan(i[16]); ASSERT_TRUE(isnan(i[16]));
ASSERT(isinf(i[17]); ASSERT_TRUE(isinf(i[17]));
} }
int main(int argc, const char ** argv){ int main(int argc, const char ** argv){