MPI: Remove CONTIGUOUS from mp_free_mem to work around Flang bug

hfp · Jan 23, 2024 · 8d2419c · 8d2419c
1 parent b8aa4e1
commit 8d2419c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)