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

remove C99 requirement

This commit is contained in:
Martin Kroeker 2024-07-26 11:15:33 +02:00 committed by GitHub
parent a875304eb0
commit d9ae4609fb
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
utest/test_gemv.c
View File

@ -12,6 +12,7 @@
CTEST(sgemv, 0_nan_inf) CTEST(sgemv, 0_nan_inf)
{ {
int i;
blasint N = 17; blasint N = 17;
blasint incX = 1; blasint incX = 1;
blasint incY = 1; blasint incY = 1;
@ -24,19 +25,20 @@ CTEST(sgemv, 0_nan_inf)
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
memset(X, 0, sizeof(X)); memset(X, 0, sizeof(X));
for (int i = 0; i < (N - 1); i += 2) for (i = 0; i < (N - 1); i += 2)
{ {
Y[i] = NAN; Y[i] = NAN;
Y[i + 1] = INFINITY; Y[i + 1] = INFINITY;
} }
Y[N - 1] = NAN; Y[N - 1] = NAN;
BLASFUNC(sgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY); BLASFUNC(sgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY);
for (int i = 0; i < N; i ++) for (i = 0; i < N; i ++)
ASSERT_TRUE(Y[i] == 0.0); ASSERT_TRUE(Y[i] == 0.0);
} }
CTEST(sgemv, 0_nan_inf_incy_2) CTEST(sgemv, 0_nan_inf_incy_2)
{ {
int i;
blasint N = 17; blasint N = 17;
blasint Ny = 33; blasint Ny = 33;
blasint incX = 1; blasint incX = 1;
@ -52,7 +54,7 @@ CTEST(sgemv, 0_nan_inf_incy_2)
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
memset(X, 0, sizeof(X)); memset(X, 0, sizeof(X));
memset(Y, 0, sizeof(Y)); memset(Y, 0, sizeof(Y));
for (int i = 0; i < (N - 1); i += 2) for (i = 0; i < (N - 1); i += 2)
{ {
ay[0] = NAN; ay[0] = NAN;
ay += 2; ay += 2;
@ -61,7 +63,7 @@ CTEST(sgemv, 0_nan_inf_incy_2)
} }
Y[Ny - 1] = NAN; Y[Ny - 1] = NAN;
BLASFUNC(sgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY); BLASFUNC(sgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY);
for (int i = 0; i < Ny; i ++) for (i = 0; i < Ny; i ++)
ASSERT_TRUE(Y[i] == 0.0); ASSERT_TRUE(Y[i] == 0.0);
} }
@ -70,6 +72,7 @@ CTEST(sgemv, 0_nan_inf_incy_2)
#ifdef BUILD_DOUBLE #ifdef BUILD_DOUBLE
CTEST(dgemv, 0_nan_inf) CTEST(dgemv, 0_nan_inf)
{ {
int i;
blasint N = 17; blasint N = 17;
blasint incX = 1; blasint incX = 1;
blasint incY = 1; blasint incY = 1;
@ -82,19 +85,20 @@ CTEST(dgemv, 0_nan_inf)
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
memset(X, 0, sizeof(X)); memset(X, 0, sizeof(X));
for (int i = 0; i < (N - 1); i += 2) for (i = 0; i < (N - 1); i += 2)
{ {
Y[i] = NAN; Y[i] = NAN;
Y[i + 1] = INFINITY; Y[i + 1] = INFINITY;
} }
Y[N - 1] = NAN; Y[N - 1] = NAN;
BLASFUNC(dgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY); BLASFUNC(dgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY);
for (int i = 0; i < N; i ++) for (i = 0; i < N; i ++)
ASSERT_TRUE(Y[i] == 0.0); ASSERT_TRUE(Y[i] == 0.0);
} }
CTEST(dgemv, 0_nan_inf_incy_2) CTEST(dgemv, 0_nan_inf_incy_2)
{ {
int i;
blasint N = 17; blasint N = 17;
blasint Ny = 33; blasint Ny = 33;
blasint incX = 1; blasint incX = 1;
@ -110,7 +114,7 @@ CTEST(dgemv, 0_nan_inf_incy_2)
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
memset(X, 0, sizeof(X)); memset(X, 0, sizeof(X));
memset(Y, 0, sizeof(Y)); memset(Y, 0, sizeof(Y));
for (int i = 0; i < (N - 1); i += 2) for (i = 0; i < (N - 1); i += 2)
{ {
ay[0] = NAN; ay[0] = NAN;
ay += 2; ay += 2;
@ -119,7 +123,7 @@ CTEST(dgemv, 0_nan_inf_incy_2)
} }
Y[Ny - 1] = NAN; Y[Ny - 1] = NAN;
BLASFUNC(dgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY); BLASFUNC(dgemv)(&trans, &N, &N, &alpha, A, &N, X, &incX, &beta, Y, &incY);
for (int i = 0; i < Ny; i ++) for (i = 0; i < Ny; i ++)
ASSERT_TRUE(Y[i] == 0.0); ASSERT_TRUE(Y[i] == 0.0);
} }