1 ! { dg-do run { target fd_truncate } }
2 ! PR31207 Last record truncated for read after short write
4 character(10) :: answer
5 write (12,'(A,T2,A)',advance
="no") 'XXXXXX','ABCD'
7 read (12, '(6A)') answer
8 close (12, status
="delete")
9 if (answer
/= "XABCDX") call abort()