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

Philippe 04/07/2022: workaroung GCC bug: date_time is not defined as an...

Philippe 04/07/2022: workaroung GCC bug: date_time is not defined as an extended type of date (to prevent failure when reading arrays of date_type in namelists)
parent 4c16efba
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1997-2020 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1997-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -47,8 +47,19 @@ type date ...@@ -47,8 +47,19 @@ type date
integer :: nday = 0 integer :: nday = 0
end type date end type date
! !
#if 0
!GCC BUG: if an extended type is used in an array for a namelist, the reading fails
!GCC bug (at least from 5.5 to 12.1, see GCC bug 106065)
type, extends( date ) :: date_time type, extends( date ) :: date_time
real :: xtime = XNEGUNDEF real :: xtime = XNEGUNDEF
end type date_time end type date_time
#else
type :: date_time
integer :: nyear = NNEGUNDEF
integer :: nmonth = 0
integer :: nday = 0
real :: xtime = XNEGUNDEF
end type date_time
#endif
! !
end module modd_type_date end module modd_type_date
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