1! { dg-do run }
2! PR31199, test case from PR report.
3       program write_write
4       character(len=20) :: a,b,c
5       open(10, status="scratch")
6       write (10,"(a,t1,a,a)") "xxxxxxxxx", "abc", "def"
7       write (10,"(a,t1,a)",advance='no') "xxxxxxxxx", "abc"
8       write (10,"(a)") "def"
9       write (10,"(a)") "abcdefxxx"
10       rewind(10)
11       read(10,*) a
12       read(10,*) b
13       read(10,*) c
14       close(10)
15       if (a.ne.b) call abort()
16       IF (b.ne.c) call abort()
17       end
18
19