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