diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-09 00:17:42 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-09 00:17:42 +0000 |
| commit | 57728874d2a68f3918a2e44c65c6ae100e34eaf6 (patch) | |
| tree | 7217ab283da7f6caf5bfbbfd89764866d04248c8 | |
| parent | a34567cc3eaf94afea440b95723be9962f645f07 (diff) | |
| download | gcc-57728874d2a68f3918a2e44c65c6ae100e34eaf6.zip gcc-57728874d2a68f3918a2e44c65c6ae100e34eaf6.tar.gz gcc-57728874d2a68f3918a2e44c65c6ae100e34eaf6.tar.bz2 | |
re PR fortran/32678 ([4.2, 4.1]GFortan works incorrectly when writing with FORMAT Tx)
2007-07-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32678
* gfortran.dg/fmt_t_5.f90: New test.
From-SVN: r126478
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_t_5.f90 | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6fd21a5..6d03acc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-08 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/32678 + * gfortran.dg/fmt_t_5.f90: New test. + 2007-07-08 Paolo Carlini <pcarlini@suse.de> PR c++/30535 diff --git a/gcc/testsuite/gfortran.dg/fmt_t_5.f90 b/gcc/testsuite/gfortran.dg/fmt_t_5.f90 new file mode 100644 index 0000000..14185cc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_t_5.f90 @@ -0,0 +1,18 @@ +! { dg-do run } +! PR32678 GFortan works incorrectly when writing with FORMAT Tx +! Before patch, NULLs were inserted in output. +! Test case from reporter enhanced to detect this problem. + character(25) :: output + character(1) :: c + output = "" + open (unit=10, file="pr32678testfile", status="replace") + write (10,10) '12','a','b' + close (10, status="keep") + open (unit=10, file="pr32678testfile", access="stream") + read(10, pos=1) output(1:21) + if (output(1:21).ne."ab x") call abort + read(10) c + if (c.ne.achar(10)) call abort + close (10, status="delete") + 10 format (a2,t1,a1,t2,a1,t20,' x') + end |