[Getfem-commits] [getfem-commits] branch master updated: Fix broken lapack interface on BigEndian architectures

[Konstantinos Poulios]

This is an automated email from the git hooks/post-receive script.

logari81 pushed a commit to branch master
in repository getfem.

The following commit(s) were added to refs/heads/master by this push:
     new 42188b7a Fix broken lapack interface on BigEndian architectures
42188b7a is described below

commit 42188b7a3958f0de611d30bbfb275034b42ed1c0
Author: Konstantinos Poulios <logari81@gmail.com>
AuthorDate: Mon Dec 5 09:15:57 2022 +0100

    Fix broken lapack interface on BigEndian architectures
    
    Closes bug #63413
---
 src/gmm/gmm_lapack_interface.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gmm/gmm_lapack_interface.h b/src/gmm/gmm_lapack_interface.h
index 37bc48f5..fa38addf 100644
--- a/src/gmm/gmm_lapack_interface.h
+++ b/src/gmm/gmm_lapack_interface.h
@@ -105,7 +105,7 @@ namespace gmm {
     size_type lu_factor(dense_matrix<base_type > &A, lapack_ipvt &ipvt){     \
     GMMLAPACK_TRACE("getrf_interface");                                      \
     BLAS_INT m = BLAS_INT(mat_nrows(A)), n = BLAS_INT(mat_ncols(A)), lda(m); \
-    long info(-1L);                                                          \
+    BLAS_INT info(-1);                                                       \
     if (m && n) lapack_name(&m, &n, &A(0,0), &lda, ipvt.pfirst(), &info);    \
     if ((sizeof(BLAS_INT) == 4) ||                                            \
         ((info & 0xFFFFFFFF00000000L) && !(info & 0x00000000FFFFFFFFL)))     \