1! { dg-do run } 2! 3! PR fortran/50109 4! 5! Contributed by Jim Hanson 6! 7 program namelist_test 8 9 integer nfp 10 namelist /indata/ nfp 11 12 nfp = 99 13 open(unit=4, status='scratch') 14 write(4,'(a)') '$indata' 15 write(4,'(a)') 'NFP = 5,' 16 write(4,'(a)') "! " 17 write(4,'(a)') "! " 18 write(4,'(a)') "! " 19 write(4,'(a)') '/' 20 21 rewind(4) 22 read (4,nml=indata) 23 close(4) 24 25! write(*,*) nfp 26 if (nfp /= 5) call abort() 27 28 end 29