From dbf615292de1f4c9c76953bf716630a97e5666ff Mon Sep 17 00:00:00 2001
From: "H.J. Lu" <hongjiu.lu@intel.com>
Date: Wed, 26 Aug 2009 20:55:42 +0000
Subject: [PATCH] re PR fortran/41162 (416.gamess in SPEC CPU 2006 failed to
 build)

2009-08-26  H.J. Lu  <hongjiu.lu@intel.com>

	PR fortran/41162
	* gfortran.dg/pr41162.f: New.

From-SVN: r151130
---
 gcc/testsuite/ChangeLog             | 5 +++++
 gcc/testsuite/gfortran.dg/pr41162.f | 5 +++++
 2 files changed, 10 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/pr41162.f

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a91b11f02bf..e4a60c936bd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-26  H.J. Lu  <hongjiu.lu@intel.com>
+
+	PR fortran/41162
+	* gfortran.dg/pr41162.f: New.
+
 2009-08-26  Adam Nemet  <anemet@caviumnetworks.com>
 	    Richard Sandiford  <rdsandiford@googlemail.com>
 
diff --git a/gcc/testsuite/gfortran.dg/pr41162.f b/gcc/testsuite/gfortran.dg/pr41162.f
new file mode 100644
index 00000000000..eea3c55f6c1
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr41162.f
@@ -0,0 +1,5 @@
+! { dg-do compile }
+! PRs 41154/41162
+      write (*,'(1PD24.15,F4.2,0P)') 1.0d0
+      write (*,'(1PD24.15,F4.2,0P/)') 1.0d0
+      end