gcc/testsuite/gfortran.dg/namelist_25.f90

   1 ! { dg-do compile }
   2 ! Tests patch for PR29407, in which the declaration of 'my' as
   3 ! a local variable was ignored, so that the procedure and namelist
   4 ! attributes for 'my' clashed..
   5 !
   6 ! Contributed by Tobias Burnus  <tobias.burnus@physik.fu-berlin.de>
   7 !
   8 program main
   9   implicit none
  10 contains
  11   subroutine my
  12   end subroutine my
  13   subroutine bar
  14     integer :: my
  15     namelist /ops/ my
  16   end subroutine bar
  17 end program main
  18