Issue #104 (ifort segfaults when compiling 1.5.1's libxsmm.f): attemp…

…t to workaround the problem. This fix is validated against latest PGI Fortran, which was the deviating from what's accepted when compared to any other Fortran compiler (however, it's not the PGI version previously used to check with since the CSCS' Dora environment is not available at the moment).
libxsmm · Oct 31, 2016 · daae660 · daae660
1 parent 50d28b2
commit daae660
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/template/libxsmm.f b/src/template/libxsmm.f
@@ -419,16 +419,18 @@ FUNCTION drealptr(a)
 
         !DIR$ ATTRIBUTES OFFLOAD:MIC :: construct_fn3
         FUNCTION construct_fn3(cfn) RESULT(fn)
-          PROCEDURE(LIBXSMM_MMFUNCTION3), POINTER :: fn
+          PROCEDURE(LIBXSMM_MMFUNCTION3), POINTER :: fn, tmp
           TYPE(C_FUNPTR), INTENT(IN) :: cfn
-          CALL C_F_PROCPOINTER(cfn, fn)
+          CALL C_F_PROCPOINTER(cfn, tmp)
+          fn => tmp
         END FUNCTION
 
         !DIR$ ATTRIBUTES OFFLOAD:MIC :: construct_fn6
         FUNCTION construct_fn6(cfn) RESULT(fn)
-          PROCEDURE(LIBXSMM_MMFUNCTION6), POINTER :: fn
+          PROCEDURE(LIBXSMM_MMFUNCTION6), POINTER :: fn, tmp
           TYPE(C_FUNPTR), INTENT(IN) :: cfn
-          CALL C_F_PROCPOINTER(cfn, fn)
+          CALL C_F_PROCPOINTER(cfn, tmp)
+          fn => tmp
         END FUNCTION
 
         !DIR$ ATTRIBUTES OFFLOAD:MIC :: construct_smmfunction

diff --git a/version.txt b/version.txt
@@ -1 +1 @@
-master-1.5.1-78
+master-1.5.1-79