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") call abort()
10end program main
11