From 4987168e5f6ea6111bb74f64792c8a005bf81d2f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Tue, 10 Sep 2024 09:16:10 +0200
Subject: [PATCH] Philippe 10/09/2024: workaround for compiler bug impacting
 GCC 13.1 and 13.2

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

diff --git a/src/LIB/SURCOUCHE/src/modd_netcdf.f90 b/src/LIB/SURCOUCHE/src/modd_netcdf.f90
index 814e2c98d..21c49d645 100644
--- a/src/LIB/SURCOUCHE/src/modd_netcdf.f90
+++ b/src/LIB/SURCOUCHE/src/modd_netcdf.f90
@@ -40,7 +40,12 @@ end type tdimsnc
 
 contains
 
+#if defined(__GNUC__) && (__GNUC__ == 13) && ((__GNUC_MINOR__ == 1) || (__GNUC_MINOR__ == 2))
+!Workaround for compiler bug impacting GCC 13.1 and 13.2 (corrected in 13.3, does not seem to concern other versions)
+impure elemental subroutine tdimsnc_destructor( tpdimsnc)
+#else
 elemental subroutine tdimsnc_destructor( tpdimsnc)
+#endif
   type(tdimsnc), intent(inout) :: tpdimsnc
 
   if ( associated( tpdimsnc%tdims     ) ) deallocate( tpdimsnc%tdims     )
-- 
GitLab