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  call bar
10  outv = grid
11contains
12  subroutine bar
13    namelist /N/ grid
14    read (nnml, nml=N)
15  end subroutine bar
16end subroutine foo
17