diff --git a/src/mpiwrap/message_passing.fypp b/src/mpiwrap/message_passing.fypp index 690ed57b03..9d3d63fec7 100644 --- a/src/mpiwrap/message_passing.fypp +++ b/src/mpiwrap/message_passing.fypp @@ -4711,8 +4711,8 @@ !> \param[out] stat (optional) allocation status result ! ************************************************************************************************** SUBROUTINE mp_free_mem_${nametype1}$ (DATA, stat) - ${type1}$, CONTIGUOUS, DIMENSION(:), & - POINTER, ASYNCHRONOUS :: DATA + ${type1}$, DIMENSION(:), & + POINTER, ASYNCHRONOUS :: DATA INTEGER, INTENT(OUT), OPTIONAL :: stat #if defined(__parallel)