MPI: Remove CONTIGUOUS from mp_free_mem to work around Flang bug

This commit is contained in:
Ole Schütt 2024-01-23 19:32:25 +01:00 committed by Ole Schütt
parent b8aa4e11f5
commit 8d2419c75b

View file

@ -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)