1 ! { dg
-do run
{ target fd_truncate
} }
2 ! PR32235 incorrectly position text file after backspace
3 ! Test case from PR
, prepared by Jerry DeLisle
<jvdelisle@gcc
.gnu
.org
>
10 write(10,"(a)") "Three"
18 if (a
.ne
."Three") call abort
19 close
(10,status
="delete")
22 2000 format('read =',a10
)
25 subroutine inlist
(ncards
)
29 if (ncards
.eq
.0) go to 20
36 30 read(input
,1000,end=60) data
39 if ((kard
.eq
. 1) .and
. (DATA
(1) .ne
. "One")) call abort
40 if ((kard
.eq
. 2) .and
. (DATA
(1) .ne
. "Two")) call abort
41 if ((kard
.eq
. 3) .and
. (DATA
(1) .ne
. "Thre")) call abort
45 kard
=kard
- ncards
+ 1
53 2020 format (8x
,i15
,8x
,20a4
)