18 lines
483 B
Fortran
18 lines
483 B
Fortran
! { dg-do run }
|
|
! PR31207 Last record truncated for read after short write.
|
|
character(len=20) :: b
|
|
! write something no advance
|
|
open(10,file="fort.10",position="rewind")
|
|
write(10, '(a,t1,a)',advance='no') 'xxxxxx', 'abc'
|
|
close(10)
|
|
! append some data
|
|
open(10,file="fort.10",position="append")
|
|
write(10, '(a)') 'def'
|
|
close(10)
|
|
! check what is in the first record
|
|
open(10,file="fort.10",position="rewind")
|
|
read(10,'(a)') b
|
|
close(10, status="delete")
|
|
if (b.ne."abcxxx") call abort()
|
|
end
|