|
|
337528 |
Fixing FTBFS on power:
|
|
|
337528 |
https://bugzilla.redhat.com/show_bug.cgi?id=2120974
|
|
|
337528 |
|
|
|
337528 |
Upstream issue: https://github.com/xianyi/OpenBLAS/issues/3738
|
|
|
337528 |
Upstream fix: https://github.com/xianyi/OpenBLAS/pull/3718
|
|
|
337528 |
|
|
|
337528 |
commit d9dc015cfc78fc32f555995a89d6957ef0184ea2
|
|
|
337528 |
Author: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
|
|
|
337528 |
Date: Mon Aug 8 14:52:10 2022 +0200
|
|
|
337528 |
|
|
|
337528 |
Use blasint for INTERFACE64 compatibility
|
|
|
337528 |
|
|
|
337528 |
diff --git a/test/compare_sgemm_sbgemm.c b/test/compare_sgemm_sbgemm.c
|
|
|
337528 |
index a2c358cf..d4b59145 100644
|
|
|
337528 |
--- a/test/compare_sgemm_sbgemm.c
|
|
|
337528 |
+++ b/test/compare_sgemm_sbgemm.c
|
|
|
337528 |
@@ -76,9 +76,9 @@ float16to32 (bfloat16_bits f16)
|
|
|
337528 |
int
|
|
|
337528 |
main (int argc, char *argv[])
|
|
|
337528 |
{
|
|
|
337528 |
- int m, n, k;
|
|
|
337528 |
+ blasint m, n, k;
|
|
|
337528 |
int i, j, l;
|
|
|
337528 |
- int x;
|
|
|
337528 |
+ blasint x;
|
|
|
337528 |
int ret = 0;
|
|
|
337528 |
int loop = 100;
|
|
|
337528 |
char transA = 'N', transB = 'N';
|
|
|
337528 |
|
|
|
337528 |
commit 3d338b57de1837f1e2264a1262a9ee9203f31c6c
|
|
|
337528 |
Author: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
|
|
|
337528 |
Date: Mon Aug 8 17:09:45 2022 +0200
|
|
|
337528 |
|
|
|
337528 |
remove spurious loops
|
|
|
337528 |
|
|
|
337528 |
diff --git a/test/compare_sgemm_sbgemm.c b/test/compare_sgemm_sbgemm.c
|
|
|
337528 |
index d4b59145..276fecae 100644
|
|
|
337528 |
--- a/test/compare_sgemm_sbgemm.c
|
|
|
337528 |
+++ b/test/compare_sgemm_sbgemm.c
|
|
|
337528 |
@@ -112,7 +112,6 @@ main (int argc, char *argv[])
|
|
|
337528 |
&m, BB, &k, &beta, CC, &m);
|
|
|
337528 |
for (i = 0; i < n; i++)
|
|
|
337528 |
for (j = 0; j < m; j++)
|
|
|
337528 |
- for (l = 0; l < k; l++)
|
|
|
337528 |
if (fabs (CC[i * m + j] - C[i * m + j]) > 1.0)
|
|
|
337528 |
ret++;
|
|
|
337528 |
if (transA == 'N' && transB == 'N')
|
|
|
337528 |
@@ -126,7 +125,6 @@ main (int argc, char *argv[])
|
|
|
337528 |
}
|
|
|
337528 |
for (i = 0; i < n; i++)
|
|
|
337528 |
for (j = 0; j < m; j++)
|
|
|
337528 |
- for (l = 0; l < k; l++)
|
|
|
337528 |
if (CC[i * m + j] != DD[i * m + j])
|
|
|
337528 |
ret++;
|
|
|
337528 |
}
|