From 4e70743f837d75c6a498c6e77a4c62404252c575 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 13 Oct 2009 02:03:54 +0000 Subject: [PATCH] re PR libfortran/41683 (F2003 Repeat specification after P descriptor rejected) 2009-10-12 Jerry DeLisle PR libgfortran/41683 * gfortran.dg/fmt_error_9.f: Add check for repeat count after P. From-SVN: r152696 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_error_9.f | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 32b2ea4..2303589 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-10-12 Jerry DeLisle + + PR libgfortran/41683 + * gfortran.dg/fmt_error_9.f: Add check for repeat count after P. + 2009-10-12 Jason Merrill PR c++/37875 diff --git a/gcc/testsuite/gfortran.dg/fmt_error_9.f b/gcc/testsuite/gfortran.dg/fmt_error_9.f index 0f2b63b..d8abb85 100644 --- a/gcc/testsuite/gfortran.dg/fmt_error_9.f +++ b/gcc/testsuite/gfortran.dg/fmt_error_9.f @@ -22,4 +22,8 @@ write (line,'(1pd24.15e11.3)') 1.0d0, 1.234 if (line.ne." 1.000000000000000D+00 1.234E+00") call abort + str = '(1p2d24.15)' + msg = " 1.000000000000000D+00 1.233999967575073D+00That's it!" + write (line,'(1p2d24.15a)') 1.0d0, 1.234, "That's it!" + if (line.ne.msg) print *, msg end -- 2.7.4