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

just use numeric constants in dimensions

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

32
utest/test_gemv.c
View File

@ -7,22 +7,21 @@
#ifndef INFINITY #ifndef INFINITY
#define INFINITY 1.0/0.0 #define INFINITY 1.0/0.0
#endif #endif
#define N 17
#define Ny 33
#ifdef BUILD_SINGLE #ifdef BUILD_SINGLE
CTEST(sgemv, 0_nan_inf) CTEST(sgemv, 0_nan_inf)
{ {
int i; int i;
blasint N = 17;
blasint incX = 1; blasint incX = 1;
blasint incY = 1; blasint incY = 1;
float alpha = 0.0; float alpha = 0.0;
float beta = 0.0; float beta = 0.0;
char trans = 'N'; char trans = 'N';
float A[N * N]; float A[17 * 17];
float X[N]; float X[17];
float Y[N]; float Y[17];
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
memset(X, 0, sizeof(X)); memset(X, 0, sizeof(X));
@ -40,14 +39,16 @@ CTEST(sgemv, 0_nan_inf)
CTEST(sgemv, 0_nan_inf_incy_2) CTEST(sgemv, 0_nan_inf_incy_2)
{ {
int i; int i;
blasint N = 17;
blasint Ny = 33;
blasint incX = 1; blasint incX = 1;
blasint incY = 2; blasint incY = 2;
float alpha = 0.0; float alpha = 0.0;
float beta = 0.0; float beta = 0.0;
char trans = 'N'; char trans = 'N';
float A[N * N]; float A[17 * 17];
float X[N]; float X[17];
float Y[Ny]; float Y[33];
float *ay = Y; float *ay = Y;
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
@ -72,14 +73,15 @@ CTEST(sgemv, 0_nan_inf_incy_2)
CTEST(dgemv, 0_nan_inf) CTEST(dgemv, 0_nan_inf)
{ {
int i; int i;
blasint N = 17;
blasint incX = 1; blasint incX = 1;
blasint incY = 1; blasint incY = 1;
double alpha = 0.0; double alpha = 0.0;
double beta = 0.0; double beta = 0.0;
char trans = 'N'; char trans = 'N';
double A[N * N]; double A[17 * 17];
double X[N]; double X[17];
double Y[N]; double Y[17];
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));
memset(X, 0, sizeof(X)); memset(X, 0, sizeof(X));
@ -97,14 +99,16 @@ CTEST(dgemv, 0_nan_inf)
CTEST(dgemv, 0_nan_inf_incy_2) CTEST(dgemv, 0_nan_inf_incy_2)
{ {
int i; int i;
blasint N = 17;
blasint Ny = 33;
blasint incX = 1; blasint incX = 1;
blasint incY = 2; blasint incY = 2;
double alpha = 0.0; double alpha = 0.0;
double beta = 0.0; double beta = 0.0;
char trans = 'N'; char trans = 'N';
double A[N * N]; double A[17 * 17];
double X[N]; double X[17];
double Y[Ny]; double Y[33];
double *ay = Y; double *ay = Y;
memset(A, 0, sizeof(A)); memset(A, 0, sizeof(A));