Fix compilation issues with intel

cp2k · Jan 10, 2023 · cdc973b · cdc973b
1 parent 72f72f4
commit cdc973b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/mpiwrap/message_passing.F b/src/mpiwrap/message_passing.F
@@ -772,12 +772,12 @@ MODULE message_passing
       #:set types = ["comm", "request", "win", "file"]
    #:endmute
    #:for type in types
-      ELEMENTAL LOGICAL FUNCTION mp_${type}$_op_eq(${type}$1, ${type}$2)
+      LOGICAL FUNCTION mp_${type}$_op_eq(${type}$1, ${type}$2)
          CLASS(mp_${type}$_type), INTENT(IN) :: ${type}$1, ${type}$2
          mp_${type}$_op_eq = (${type}$1%handle .EQ. ${type}$2%handle)
       END FUNCTION mp_${type}$_op_eq
 
-      ELEMENTAL LOGICAL FUNCTION mp_${type}$_op_neq(${type}$1, ${type}$2)
+      LOGICAL FUNCTION mp_${type}$_op_neq(${type}$1, ${type}$2)
          CLASS(mp_${type}$_type), INTENT(IN) :: ${type}$1, ${type}$2
          mp_${type}$_op_neq = (${type}$1%handle .NE. ${type}$2%handle)
       END FUNCTION mp_${type}$_op_neq