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