diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-10-13 02:03:54 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-10-13 02:03:54 +0000 |
| commit | 4e70743f837d75c6a498c6e77a4c62404252c575 (patch) | |
| tree | 274ca0c021b4c615cf1e7a2e215ba71aea73f207 | |
| parent | 0a81006d27f20b07770c0e04bd9bad31f30131d7 (diff) | |
| download | gcc-4e70743f837d75c6a498c6e77a4c62404252c575.zip gcc-4e70743f837d75c6a498c6e77a4c62404252c575.tar.gz gcc-4e70743f837d75c6a498c6e77a4c62404252c575.tar.bz2 | |
re PR libfortran/41683 (F2003 Repeat specification after P descriptor rejected)
2009-10-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/41683
* gfortran.dg/fmt_error_9.f: Add check for repeat count after P.
From-SVN: r152696
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_error_9.f | 4 |
2 files changed, 9 insertions, 0 deletions
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 <jvdelisle@gcc.gnu.org> + + PR libgfortran/41683 + * gfortran.dg/fmt_error_9.f: Add check for repeat count after P. + 2009-10-12 Jason Merrill <jason@redhat.com> 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 |