From a6e0993cf8b756d9a5c6e85aafa887ded94364fa Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 18 Jan 2008 22:22:21 +0000 Subject: [PATCH] re PR fortran/34782 (tab format failure to display properly (regression vs. g77)) 2007-01-18 Jerry DeLisle PR target/34782 * gfortran.dg/fmt_t_6.f: New test. From-SVN: r131641 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_t_6.f | 10 ++++++++++ 2 files changed, 15 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_t_6.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 592c509d717..5e35a9dc4cd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-01-18 Jerry DeLisle + + PR target/34782 + * gfortran.dg/fmt_t_6.f: New test. + 2008-01-18 Tobias Burnus * 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 00000000000..98ca172fab5 --- /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