diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 32b2ea4f8b40e92a24da2e45ebf5d4a7e52b0620..23035892ca817ba19b9ba0c66b6db463c703fab5 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 0f2b63b6d3271c218f9ea9f12ce6a3034852d614..d8abb851210c8b9e19975ddb13303ab4a606cf82 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