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

Merge pull request #3718 from martin-frbg/fixsbtest 

Fix SBGEMM test to work with INTERFACE64
This commit is contained in:
Martin Kroeker 2022-08-09 09:45:22 +02:00 committed by GitHub
parent e671d0386b 3d338b57de
commit b94944777b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/compare_sgemm_sbgemm.c
View File

@ -76,9 +76,9 @@ float16to32 (bfloat16_bits f16)
int int
main (int argc, char *argv[]) main (int argc, char *argv[])
{ {
int m, n, k; blasint m, n, k;
int i, j, l; int i, j, l;
int x; blasint x;
int ret = 0; int ret = 0;
int loop = 100; int loop = 100;
char transA = 'N', transB = 'N'; char transA = 'N', transB = 'N';
@ -112,7 +112,6 @@ main (int argc, char *argv[])
&m, BB, &k, &beta, CC, &m); &m, BB, &k, &beta, CC, &m);
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
for (j = 0; j < m; j++) for (j = 0; j < m; j++)
for (l = 0; l < k; l++)
if (fabs (CC[i * m + j] - C[i * m + j]) > 1.0) if (fabs (CC[i * m + j] - C[i * m + j]) > 1.0)
ret++; ret++;
if (transA == 'N' && transB == 'N') if (transA == 'N' && transB == 'N')
@ -126,7 +125,6 @@ main (int argc, char *argv[])
} }
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
for (j = 0; j < m; j++) for (j = 0; j < m; j++)
for (l = 0; l < k; l++)
if (CC[i * m + j] != DD[i * m + j]) if (CC[i * m + j] != DD[i * m + j])
ret++; ret++;
} }