1! PR fortran/59440 2! { dg-do compile } 3! { dg-options "-O2 -g" } 4 5subroutine foo (nnml, outv) 6 integer, intent(in) :: nnml 7 integer, intent(out) :: outv 8 integer :: grid 9 namelist /N/ grid 10 read (nnml, nml=N) 11 call bar 12contains 13 subroutine bar 14 outv = grid 15 end subroutine bar 16end subroutine foo 17