1! { dg-do run { target fd_truncate } }
2! PR25139 Repeated backspaces and reads.
3! Derived from example given in PR by Dale Ranta and FX Coudert
4! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
5      integer dat(5)
6      dat = (/ 0, 0, 0, 0, 1 /)
7      write(11) dat,dat,dat,dat
8      rewind 11
9      write(11) dat
10      read(11,end=1008) dat
11      call abort()
12 1008 continue
13      backspace 11
14      write(11) dat
15      read(11,end=1011) dat
16      call abort()
17 1011 continue
18      backspace 11
19      backspace 11
20      close(11, status='delete')
21      end
22
23