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