2 ! PR31207 Last record truncated for read after short write.
4 ! write something no advance
5 open(10,file="fort.10",position="rewind")
6 write(10, '(a,t1,a)',advance='no') 'xxxxxx', 'abc'
9 open(10,file="fort.10",position="append")
10 write(10, '(a)') 'def'
12 ! check what is in the first record
13 open(10,file="fort.10",position="rewind")
15 close(10, status="delete")
16 if (b.ne."abcxxx") call abort()