http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59440
Tobias Burnus <burnus at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Keywords| |openmp --- Comment #7 from Tobias Burnus <burnus at gcc dot gnu.org> --- Also the following variant fails, where the NAMELIST and the "grid" variable are in the same subroutine - and only the NML read is in the internal subroutine. module gfcbug127 implicit none type t integer :: grid = 0 end type t contains subroutine read_nml (nnml, s) integer, intent(in) :: nnml type(t), intent(out) :: s integer :: grid namelist /N/ grid call read_nml_type_2 s%grid = grid contains subroutine read_nml_type_2 read (nnml, nml=N) end subroutine read_nml_type_2 end subroutine read_nml end module gfcbug127