1! { dg-do run { target fd_truncate } } 2!pr18284 BACKSPACE broken 3 open(unit=10,access='SEQUENTIAL',status='SCRATCH') 4 do I = 1,200 5 write(10,*)I 6 end do 7 backspace(10) 8 backspace(10) 9 read(10,*)I 10 if (I.NE.199) call abort 11 end 12