11 lines
293 B
Fortran
11 lines
293 B
Fortran
! { dg-do run }
|
|
! 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
|