From 57728874d2a68f3918a2e44c65c6ae100e34eaf6 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 9 Jul 2007 00:17:42 +0000 Subject: [PATCH] re PR fortran/32678 ([4.2, 4.1]GFortan works incorrectly when writing with FORMAT Tx) 2007-07-08 Jerry DeLisle PR fortran/32678 * gfortran.dg/fmt_t_5.f90: New test. From-SVN: r126478 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_t_5.f90 | 18 ++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_t_5.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6fd21a579d0..6d03acc699b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-08 Jerry DeLisle + + PR fortran/32678 + * gfortran.dg/fmt_t_5.f90: New test. + 2007-07-08 Paolo Carlini 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 00000000000..14185cc05a1 --- /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 -- 2.30.2