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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 370f5c7b4f4ba135654955692b6094b3e0c51d57..afdaf03535f0019b092957587b0fff595dfa7dd7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/fmt_t_4.f90 b/gcc/testsuite/gfortran.dg/fmt_t_4.f90
new file mode 100644 (file)
index 0000000..e40a4fc
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_t_4.f90
@@ -0,0 +1,16 @@
+! { 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
+