diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-18 22:22:21 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-18 22:22:21 +0000 |
| commit | a6e0993cf8b756d9a5c6e85aafa887ded94364fa (patch) | |
| tree | 735c6cb8ff8263b04c22c3f13721841cd40189fd /gcc | |
| parent | 6c540522baf73cc0c90baae3e66e1bfa0f51b049 (diff) | |
| download | gcc-a6e0993cf8b756d9a5c6e85aafa887ded94364fa.zip gcc-a6e0993cf8b756d9a5c6e85aafa887ded94364fa.tar.gz gcc-a6e0993cf8b756d9a5c6e85aafa887ded94364fa.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_t_6.f | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 592c509..5e35a9d 100644 --- 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 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 |