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

Philippe 10/09/2024: workaround for compiler bug impacting GCC 13.1 and 13.2

parent f294606a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/LIB/SURCOUCHE/src/modd_netcdf.f90
+ 5
− 0
View file @ 4987168e
...@@ -40,7 +40,12 @@ end type tdimsnc ...@@ -40,7 +40,12 @@ end type tdimsnc
contains 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) elemental subroutine tdimsnc_destructor( tpdimsnc)
#endif
type(tdimsnc), intent(inout) :: tpdimsnc type(tdimsnc), intent(inout) :: tpdimsnc
if ( associated( tpdimsnc%tdims ) ) deallocate( tpdimsnc%tdims ) if ( associated( tpdimsnc%tdims ) ) deallocate( tpdimsnc%tdims )
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme