Subversion Repositories openrisc

! { dg-do run }

! Problem report: http://gcc.gnu.org/ml/fortran/2010-05/msg00139.html

!

module globals

   implicit none

   integer j

   data j/1/

end module

program test

   use globals

   implicit none

   character(len=80) str

   integer :: i

   data i/0/

   namelist /nl/i,j

   open(unit=10,status='scratch')

   write(10,nl)

   i = 42

   j = 42

   rewind(10)

   read(10,nl)

   if (i /= 0 .or. j /= 1) call abort

   close(10)

end program

! { dg-final { cleanup-modules "globals" } }