blob: 1e7cb9ed14f384a7892c81e615916e137f42b132 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
!
! PR fortran/32710 - ICE: namelist and subroutine with the same name
!
! Contributed by Janus Weil <jaydub66 AT gmail DOT com>
!
program x
contains
subroutine readInput
integer:: a
NAMELIST /foo/ a
read(5,nml=foo)
end subroutine readInput
subroutine foo()
end subroutine
end program
|
