From a1d01bf58c277df747e21ce8955f683c867a26e5 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 8 Jul 2007 02:24:37 +0000 Subject: [PATCH] re PR fortran/32554 ([4.2 Only] Bug in P formatting) 2007-07-07 Jerry DeLisle PR libgfortran/32554 * gfortran.dg/fmt_p_1.f90: New test. From-SVN: r126457 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_p_1.f90 | 12 ++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_p_1.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9a8b90f0f8e8..63f8ebab1c86 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-07 Jerry DeLisle + + PR libgfortran/32554 + * gfortran.dg/fmt_p_1.f90: New test. + 2007-07-07 Mark Mitchell PR c++/32232 diff --git a/gcc/testsuite/gfortran.dg/fmt_p_1.f90 b/gcc/testsuite/gfortran.dg/fmt_p_1.f90 new file mode 100644 index 000000000000..4ea3a55b6a8c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_p_1.f90 @@ -0,0 +1,12 @@ +! { dg-do run } +! PR32554 Bug in P formatting +! Test case from the bug reporter +program gfcbug66 + real(8) :: x = 1.0e-100_8 + character(50) :: outstr + write (outstr,'(1X,2E12.3)') x, 2 * x + if (outstr.ne." 0.100E-99 0.200E-99") call abort + write (outstr,'(1X,1P,2E12.3)') x, 2 * x ! Second printed number is wrong + if (outstr.ne." 1.000-100 2.000-100") call abort +end program gfcbug66 +