1! { dg-do run } 2! PR56786 Error on embedded spaces 3integer :: i(3) 4namelist /nml/ i 5 6i = -42 7open(99,status='scratch') 8write(99,'(a)') '&nml i(3 ) = 5 /' 9rewind(99) 10read(99,nml=nml) 11close(99) 12if (i(1)/=-42 .or. i(2)/=-42 .or. i(3)/=5) call abort() 13 14! Shorten the file so the read hits EOF 15 16open(99,status='scratch') 17write(99,'(a)') '&nml i(3 ) = 5 ' 18rewind(99) 19read(99,nml=nml, end=30) 20call abort() 21! Shorten some more 22 30 close(99) 23open(99,status='scratch') 24write(99,'(a)') '&nml i(3 ) =' 25rewind(99) 26read(99,nml=nml, end=40) 27call abort() 28! Shorten some more 29 40 close(99) 30open(99,status='scratch') 31write(99,'(a)') '&nml i(3 )' 32rewind(99) 33read(99,nml=nml, end=50) 34call abort() 35! Shorten some more 36 50 close(99) 37open(99,status='scratch') 38write(99,'(a)') '&nml i(3 ' 39rewind(99) 40read(99,nml=nml, end=60) 41call abort() 42 60 close(99) 43end 44