Skip to content
Snippets Groups Projects
Commit 02dc22ef authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 30/11/2021: Cray: workaround a compiler bug (CCE 12.0.3)

parent a66b7838
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment