+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
--- /dev/null
+! { 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