gcc/testsuite/gfortran.dg/fmt_t_4.f90

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