gcc/testsuite/gfortran.dg/fmt_t_4.f90

   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