re PR fortran/34782 (tab format failure to display properly (regression vs. g77))

2007-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR target/34782
	* gfortran.dg/fmt_t_6.f: New test.

From-SVN: r131641

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 592c509..5e35a9d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR target/34782
+       * gfortran.dg/fmt_t_6.f: New test.
+
 2008-01-18  Tobias Burnus  <burnus@net-b.de>
 
        * gfortran.dg/large_real_kind_form_io_1.f90: Enlarge string for internal I/O.

diff --git a/gcc/testsuite/gfortran.dg/fmt_t_6.f b/gcc/testsuite/gfortran.dg/fmt_t_6.f
new file mode 100644 (file)
index 0000000..98ca172
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_t_6.f
@@ -0,0 +1,10 @@
+! { dg-do  run }
+! PR34782 tab format failure to display properly (regression vs. g77)
+      character a(6)
+      character(22)  :: output
+      data a / 'a', 'b', 'c', 'd', 'e', 'f' /
+      !write(*,'(a)') "123456789012345678901234567890"
+      write(output,'(T20,A3,  T1,A4,  T5,A2,  T7,A2,  T9,A4, T17,A2)')
+     1 'a', 'b', 'c', 'd', 'e', 'f' 
+      if (output .ne. "   b c d   e     f   a") call abort
+      end