gcc/testsuite/gfortran.dg/pr59440-3.f90

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