From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Thu, 15 Mar 2007 01:30:05 +0000 (+0000)
Subject: re PR fortran/31051 ([4.2 Only] gfortran bug with x and t format descriptors.)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=23dd73839f0024c837c3304f46c2b90c4645e9a2;p=gcc.git

re PR fortran/31051 ([4.2 Only] gfortran bug with x and t format descriptors.)

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

	PR libgfortran/31051
	* gfortran.dg/fmt_t_4.f90: New

From-SVN: r122942
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 47d97704039..991755e86d3 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/31051
+	* gfortran.dg/fmt_t_4.f90: New
+
 2007-03-14  Andrew Pinski  <andrew_pinski@playstation.sony.com>
 
 	PR C++/31165
diff --git a/gcc/testsuite/gfortran.dg/fmt_t_3.f90 b/gcc/testsuite/gfortran.dg/fmt_t_3.f90
new file mode 100644
index 00000000000..1ec67e11839
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_t_3.f90
@@ -0,0 +1,15 @@
+! { dg-do run }
+! PR31051 bug with x and t format descriptors.
+! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org> from PR.
+program t
+   integer, parameter :: n = 9
+   character(len=40) :: fmt
+   character(len=2), dimension(n) :: y
+   open(unit=10, status="scratch")
+   y = 'a '
+   fmt = '(a,1x,(t7, 3a))'
+   write(10, fmt) 'xxxx', (y(i), i = 1,n)
+   rewind(10)
+   read(10, '(a)') fmt
+   if (fmt.ne."xxxx  a a a") call abort()
+end program t