OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

make independent of CBLAS

tags/v0.3.28^2
Martin Kroeker GitHub 1 year ago
parent
bebe5e5399
commit
ec8e9451f0
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 8 additions and 8 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +8
    -8
      utest/test_zscal.c

+ 8
- 8
utest/test_zscal.c View File

@@ -13,7 +13,7 @@ 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);
BLASFUNC(zscal)(9, i, &nan, 1);
ASSERT_TRUE(isnan(nan[0])); ASSERT_TRUE(isnan(nan[0]));
ASSERT_TRUE(isnan(nan[1])); ASSERT_TRUE(isnan(nan[1]));
ASSERT_TRUE(isnan(nan[16])); ASSERT_TRUE(isnan(nan[16]));
@@ -25,7 +25,7 @@ CTEST(zscal, i_nan_inc_2)
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,
NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0}; 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, 2);
BLASFUNC(zscal)(9, i, &nan, 2);
ASSERT_TRUE(isnan(nan[0])); ASSERT_TRUE(isnan(nan[0]));
ASSERT_TRUE(isnan(nan[1])); ASSERT_TRUE(isnan(nan[1]));
ASSERT_TRUE(isnan(nan[16])); ASSERT_TRUE(isnan(nan[16]));
@@ -36,7 +36,7 @@ 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);
BLASFUNC(zscal)(9, &nan, &i, 1);
ASSERT_TRUE(isnan(i[0])); ASSERT_TRUE(isnan(i[0]));
ASSERT_TRUE(isnan(i[1])); ASSERT_TRUE(isnan(i[1]));
ASSERT_TRUE(isnan(i[16])); ASSERT_TRUE(isnan(i[16]));
@@ -48,7 +48,7 @@ CTEST(zscal, nan_i_inc_2)
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,
0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 }; 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, 2);
BLASFUNC(zscal)(9, &nan, &i, 2);
ASSERT_TRUE(isnan(i[0])); ASSERT_TRUE(isnan(i[0]));
ASSERT_TRUE(isnan(i[1])); ASSERT_TRUE(isnan(i[1]));
ASSERT_TRUE(isnan(i[16])); ASSERT_TRUE(isnan(i[16]));
@@ -59,7 +59,7 @@ 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);
BLASFUNC(zscal)(9, i, &inf, 1);
ASSERT_TRUE(isnan(inf[0])); ASSERT_TRUE(isnan(inf[0]));
ASSERT_TRUE(isinf(inf[1])); ASSERT_TRUE(isinf(inf[1]));
ASSERT_TRUE(isnan(inf[16])); ASSERT_TRUE(isnan(inf[16]));
@@ -71,7 +71,7 @@ CTEST(zscal, i_inf_inc_2)
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,
INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0}; INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
cblas_zscal(9, i, &inf, 2);
BLASFUNC(zscal)(9, i, &inf, 2);
ASSERT_TRUE(isnan(inf[0])); ASSERT_TRUE(isnan(inf[0]));
ASSERT_TRUE(isinf(inf[1])); ASSERT_TRUE(isinf(inf[1]));
ASSERT_TRUE(isnan(inf[16])); ASSERT_TRUE(isnan(inf[16]));
@@ -82,7 +82,7 @@ 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);
BLASFUNC(zscal)(9, &inf, &i, 1);
ASSERT_TRUE(isnan(i[0])); ASSERT_TRUE(isnan(i[0]));
ASSERT_TRUE(isinf(i[1])); ASSERT_TRUE(isinf(i[1]));
ASSERT_TRUE(isnan(i[16])); ASSERT_TRUE(isnan(i[16]));
@@ -94,7 +94,7 @@ CTEST(zscal, inf_i_inc_2)
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,
0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1, 0,1 }; 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, 2);
BLASFUNC(zscal)(9, &inf, &i, 2);
ASSERT_TRUE(isnan(i[0])); ASSERT_TRUE(isnan(i[0]));
ASSERT_TRUE(isinf(i[1])); ASSERT_TRUE(isinf(i[1]));
ASSERT_TRUE(isnan(i[16])); ASSERT_TRUE(isnan(i[16]));


Write Preview
Loading…
Cancel
Save