gcc/testsuite/gfortran.dg/namelist_30.f90

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