From 4e70743f837d75c6a498c6e77a4c62404252c575 Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
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 <jvdelisle@gcc.gnu.org>
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 32b2ea4f8b40..23035892ca81 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 0f2b63b6d327..d8abb851210c 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
--
GitLab