updated type of constant

brtnfld · Mar 18, 2024 · 1910228 · 1910228
1 parent 73d3838
commit 1910228
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90
@@ -627,7 +627,7 @@ END FUNCTION H5Eget_msg
        RETURN
     ENDIF
     f_ptr = C_LOC(c_msg(1)(1:1))
-    c_msg_size = H5Eget_msg(msg_id, c_msg_type, f_ptr, msg_cp_sz+1)
+    c_msg_size = H5Eget_msg(msg_id, c_msg_type, f_ptr, msg_cp_sz+1_SIZE_T)
 
     CALL HD5c2fstring(msg, c_msg, msg_cp_sz, msg_cp_sz+1_SIZE_T)