! { dg-do run } ! PR25139 Repeated backspaces and reads. ! Derived from example given in PR by Dale Ranta and FX Coudert ! Contributed by Jerry DeLisle integer dat(5) dat = (/ 0, 0, 0, 0, 1 /) write(11) dat,dat,dat,dat rewind 11 write(11) dat read(11,end=1008) dat call abort() 1008 continue backspace 11 write(11) dat read(11,end=1011) dat call abort() 1011 continue backspace 11 backspace 11 close(11, status='delete') end