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