1! { dg-do run } 2! PR47154 END= does not work in namelist read 3 program foo 4 real :: a 5 namelist /b/a 6 open(10,status="scratch") 7 read (10,nml=b,end=100) 8 100 continue 9 end 10