fix arguments of zscal
This commit is contained in:
parent
1f080b9328
commit
d3f93c6015
|
@ -11,9 +11,11 @@
|
|||
|
||||
CTEST(zscal, i_nan)
|
||||
{
|
||||
int N=9;
|
||||
int incX=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};
|
||||
BLASFUNC(zscal)(9, i, nan, 1);
|
||||
BLASFUNC(zscal)(&N, i, nan, &incX);
|
||||
ASSERT_TRUE(isnan(nan[0]));
|
||||
ASSERT_TRUE(isnan(nan[1]));
|
||||
ASSERT_TRUE(isnan(nan[16]));
|
||||
|
@ -22,10 +24,12 @@ CTEST(zscal, i_nan)
|
|||
|
||||
CTEST(zscal, i_nan_inc_2)
|
||||
{
|
||||
int N=9;
|
||||
int incX=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,
|
||||
NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0};
|
||||
BLASFUNC(zscal)(9, i, nan, 2);
|
||||
BLASFUNC(zscal)(&N, i, nan, &incX);
|
||||
ASSERT_TRUE(isnan(nan[0]));
|
||||
ASSERT_TRUE(isnan(nan[1]));
|
||||
ASSERT_TRUE(isnan(nan[16]));
|
||||
|
@ -34,9 +38,11 @@ CTEST(zscal, i_nan_inc_2)
|
|||
|
||||
CTEST(zscal, nan_i)
|
||||
{
|
||||
int N=9;
|
||||
int incX=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};
|
||||
BLASFUNC(zscal)(9, nan, i, 1);
|
||||
BLASFUNC(zscal)(&N, nan, i, &incX);
|
||||
ASSERT_TRUE(isnan(i[0]));
|
||||
ASSERT_TRUE(isnan(i[1]));
|
||||
ASSERT_TRUE(isnan(i[16]));
|
||||
|
@ -45,10 +51,12 @@ CTEST(zscal, nan_i)
|
|||
|
||||
CTEST(zscal, nan_i_inc_2)
|
||||
{
|
||||
int N=9;
|
||||
int incX=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 };
|
||||
double nan[] = {NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0, NAN,0};
|
||||
BLASFUNC(zscal)(9, nan, i, 2);
|
||||
BLASFUNC(zscal)(&N, nan, i, &incX);
|
||||
ASSERT_TRUE(isnan(i[0]));
|
||||
ASSERT_TRUE(isnan(i[1]));
|
||||
ASSERT_TRUE(isnan(i[16]));
|
||||
|
@ -57,9 +65,11 @@ CTEST(zscal, nan_i_inc_2)
|
|||
|
||||
CTEST(zscal, i_inf)
|
||||
{
|
||||
int N=9;
|
||||
int incX=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};
|
||||
BLASFUNC(zscal)(9, i, inf, 1);
|
||||
BLASFUNC(zscal)(&N, i, inf, &incX);
|
||||
ASSERT_TRUE(isnan(inf[0]));
|
||||
ASSERT_TRUE(isinf(inf[1]));
|
||||
ASSERT_TRUE(isnan(inf[16]));
|
||||
|
@ -68,10 +78,12 @@ CTEST(zscal, i_inf)
|
|||
|
||||
CTEST(zscal, i_inf_inc_2)
|
||||
{
|
||||
int N=9;
|
||||
int incX=2;
|
||||
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,
|
||||
INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
|
||||
BLASFUNC(zscal)(9, i, inf, 2);
|
||||
BLASFUNC(zscal)(&N, i, inf, &incX);
|
||||
ASSERT_TRUE(isnan(inf[0]));
|
||||
ASSERT_TRUE(isinf(inf[1]));
|
||||
ASSERT_TRUE(isnan(inf[16]));
|
||||
|
@ -80,9 +92,11 @@ CTEST(zscal, i_inf_inc_2)
|
|||
|
||||
CTEST(zscal, inf_i)
|
||||
{
|
||||
int N=9;
|
||||
int incX=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};
|
||||
BLASFUNC(zscal)(9, inf, i, 1);
|
||||
BLASFUNC(zscal)(&N, inf, i, &incX);
|
||||
ASSERT_TRUE(isnan(i[0]));
|
||||
ASSERT_TRUE(isinf(i[1]));
|
||||
ASSERT_TRUE(isnan(i[16]));
|
||||
|
@ -91,10 +105,12 @@ CTEST(zscal, inf_i)
|
|||
|
||||
CTEST(zscal, inf_i_inc_2)
|
||||
{
|
||||
int N=9;
|
||||
int incX=2;
|
||||
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 };
|
||||
double inf[] = {INFINITY, 0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0, INFINITY,0};
|
||||
BLASFUNC(zscal)(9, inf, i, 2);
|
||||
BLASFUNC(zscal)(&N, inf, i, &incX);
|
||||
ASSERT_TRUE(isnan(i[0]));
|
||||
ASSERT_TRUE(isinf(i[1]));
|
||||
ASSERT_TRUE(isnan(i[16]));
|
||||
|
|
Loading…
Reference in New Issue