Subversion Repositories openrisc

! { dg-do run }

! PR31199, test case from PR report.

       program write_write

       character(len=20) :: a,b,c

       open(10, status="scratch")

       write (10,"(a,t1,a,a)") "xxxxxxxxx", "abc", "def"

       write (10,"(a,t1,a)",advance='no') "xxxxxxxxx", "abc"

       write (10,"(a)") "def"

       write (10,"(a)") "abcdefxxx"

       rewind(10)

       read(10,*) a

       read(10,*) b

       read(10,*) c

       close(10)

       if (a.ne.b) call abort()

       IF (b.ne.c) call abort()

       end