[PATCH 1/2] Use blasint for INTERFACE64 compatibility
authorMartin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Mon, 8 Aug 2022 12:52:10 +0000 (14:52 +0200)
committerSébastien Villemot <sebastien@debian.org>
Sun, 27 Nov 2022 20:22:10 +0000 (20:22 +0000)
Gbp-Pq: Name pr-3718-ppc64el-segfault.patch

test/compare_sgemm_sbgemm.c

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