Attempt to fix compilations error with older gfortran (CHARACTER(*) f…

…unction cannot be pure).
libxsmm · May 14, 2016 · 2e7ff0b · 2e7ff0b
1 parent 0f5eb88
commit 2e7ff0b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/libxsmm.template.f b/src/libxsmm.template.f
@@ -320,7 +320,7 @@ SUBROUTINE libxsmm_omp_dgemm(transa, transb, m, n, k,         &
         ! Returns a name for the target architecture as identified
         ! by libxsmm_get_target_arch().
         !DIR$ ATTRIBUTES OFFLOAD:MIC :: libxsmm_get_target_archid
-        PURE FUNCTION libxsmm_get_target_archid() RESULT(name)
+        FUNCTION libxsmm_get_target_archid() RESULT(name)
           CHARACTER(LEN=:), ALLOCATABLE :: name
           CHARACTER(LEN=16) :: tmp
           !DIR$ ATTRIBUTES OFFLOAD:MIC :: get_target_archid

diff --git a/version.txt b/version.txt
@@ -1 +1 @@
-master-1.4.1-53
+master-1.4.1-54