From 02dc22efc47516b59f2fade008dd65427e81d86e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 30 Nov 2021 10:27:41 +0100
Subject: [PATCH] Philippe 30/11/2021: Cray: workaround a compiler bug (CCE
 12.0.3)

---
 src/LIB/SURCOUCHE/src/modd_io.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/LIB/SURCOUCHE/src/modd_io.f90 b/src/LIB/SURCOUCHE/src/modd_io.f90
index c8457cc2d..d8eab9815 100644
--- a/src/LIB/SURCOUCHE/src/modd_io.f90
+++ b/src/LIB/SURCOUCHE/src/modd_io.f90
@@ -154,6 +154,11 @@ TYPE(TFILEDATA),POINTER,SAVE :: TFILE_SURFEX  => NULL() !Pointer used to find th
 TYPE(TFILEDATA),POINTER,SAVE :: TFILE_OUTPUTLISTING  => NULL() !Pointer used to point to the file used when writing to OUTPUT_LISTINGn file
 
 !Non existing file which can be used as a dummy target
+#ifndef MNH_CRAY
+!Compiler crash with Cray CCE 12.0.3, OK with CCE 11.0.2
 TYPE(TFILEDATA),TARGET, SAVE :: TFILE_DUMMY = TFILEDATA(CNAME="dummy",CDIRNAME=NULL(),TFILES_IOZ=NULL())
+#else
+TYPE(TFILEDATA),TARGET, SAVE :: TFILE_DUMMY
+#endif
 
 END MODULE MODD_IO
-- 
GitLab