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
>
6 dat
= (/ 0, 0, 0, 0, 1 /)
7 write(11) dat
,dat
,dat
,dat
20 close
(11, status
='delete')