re PR fortran/31199 (write with "t1" + nonadvancing transfer format gives wrong output)

2007-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31199
	* gfortran.dg/fmt_t_4.f90: New test.

From-SVN: r123207

gcc/testsuite/ChangeLog

+2007-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/31199
+	* gfortran.dg/fmt_t_4.f90: New test.
+
 2007-03-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/31297

gcc/testsuite/gfortran.dg/fmt_t_4.f90

+! { dg-do run }
+! PR31199, test case from PR report.
+       program write_write
+       character(len=20) :: a,b,c
+       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
+       if (a.ne.b) call abort()
+       IF (b.ne.c) call abort()
+       end
+