Fix type mismatch

cp2k · May 6, 2020 · f0d6626 · f0d6626
1 parent 0a2361e
commit f0d6626
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mpiwrap/message_passing.F b/src/mpiwrap/message_passing.F
@@ -3669,7 +3669,7 @@ FUNCTION mp_file_type_hindexed_make_chv(count, lengths, displs) &
       type_descriptor%type_handle = 0
 
 #if defined(__parallel)
-      CALL MPI_Type_create_hindexed(count, lengths, displs, MPI_CHARACTER, &
+      CALL MPI_Type_create_hindexed(count, lengths, INT(displs, KIND=address_kind), MPI_CHARACTER, &
                                     type_descriptor%type_handle, ierr)
       IF (ierr /= 0) &
          CPABORT("MPI_Type_create_hindexed @ "//routineN)