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