1! { dg-do run }
2! PR31207 Last record truncated for read after short write.
3character(len=20) :: b
4! write something no advance
5open(10,file="fort.10",position="rewind")
6write(10, '(a,t1,a)',advance='no') 'xxxxxx', 'abc'
7close(10)
8! append some data
9open(10,file="fort.10",position="append")
10write(10, '(a)') 'def'
11close(10)
12! check what is in the first record
13open(10,file="fort.10",position="rewind")
14read(10,'(a)') b
15close(10, status="delete")
16if (b.ne."abcxxx") call abort()
17end
18