blob: 1e7cb9ed14f384a7892c81e615916e137f42b132 [file] [log] [blame]
! { 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