1! { dg-do run }
2! Problem report: http://gcc.gnu.org/ml/fortran/2010-05/msg00139.html
3!
4module globals
5   implicit none
6   integer j
7   data j/1/
8end module
9
10program 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)
25end program
26