From 8d2419c75ba9dba212dcbc2194dffcadaeb0f07a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ole=20Sch=C3=BCtt?= <ole.schuett@cp2k.org>
Date: Tue, 23 Jan 2024 19:32:25 +0100
Subject: [PATCH] MPI: Remove CONTIGUOUS from mp_free_mem to work around Flang
 bug

---
 src/mpiwrap/message_passing.fypp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)