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