gcc/testsuite/gfortran.dg/data_namelist_conflict.f90

   1 ! { dg-do run }
   2 ! Problem report: http://gcc.gnu.org/ml/fortran/2010-05/msg00139.html
   3 !
   4 module globals
   5    implicit none
   6    integer j
   7    data j/1/
   8 end module
   9
  10 program test
  11    use globals
  12    implicit none
  13    character(len=80) str
  14    integer :: i
  15    data i/0/
  16    namelist /nl/i,j
  17    open(unit=10,status='scratch')
  18    write(10,nl)
  19    i = 42
  20    j = 42
  21    rewind(10)
  22    read(10,nl)
  23    if (i /= 0 .or. j /= 1) call abort
  24    close(10)
  25 end program
  26 ! { dg-final { cleanup-modules "globals" } }