blob: a9f027c47b8b515542306a7cb8f7cb70e47493c5 (
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
namelist /N/ grid
read (nnml, nml=N)
call bar
contains
subroutine bar
outv = grid
end subroutine bar
end subroutine foo
|
