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)