1! { dg-do run } 2! PR35617 read namelist error with '!' 3program test 4 character(len=128) :: mhdpath 5 namelist /nbdrive_naml/ mhdpath 6 open(10, file='test.nml') 7 8 write(10,'(a)') "&nbdrive_naml" 9 write(10,'(a)') 10 write(10,'(a)') "!nstep_stop = 2 ! uncomment to bar" 11 write(10,'(a)') "!nstep_start = 2 ! uncomment to foo" 12 write(10,'(a)') " mhdpath = 'mypath.dat'" 13 write(10,'(a)') "/" 14 15 rewind(10) 16 read(10, nbdrive_naml) 17 close(10,status="delete") 18end program test 19