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