diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-15 01:30:05 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-15 01:30:05 +0000 |
| commit | f96273b619200047da26b62ee44f8003f57d0475 (patch) | |
| tree | ba0ded72e64c13f9cfdea11c6aa9c22e8001224d | |
| parent | 7a8084e87f2ffc372fe5d91badd03a12ecbfd9cb (diff) | |
| download | ppe42-gcc-f96273b619200047da26b62ee44f8003f57d0475.tar.gz ppe42-gcc-f96273b619200047da26b62ee44f8003f57d0475.zip | |
2007-03-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31051
* gfortran.dg/fmt_t_4.f90: New
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122942 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_t_3.f90 | 15 |
2 files changed, 20 insertions, 0 deletions
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 |
