re PR fortran/38285 (Wrong I/O output: Interaction between F and P for output)

2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38285
	gfortran.dg/fmt_f_an_p.f: New test.

From-SVN: r142456

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 715ecd6..88da2eb 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/38285
+       gfortran.dg/fmt_f_an_p.f: New test.
+
 2008-12-04  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc.dg/union-5.c: New test.

diff --git a/gcc/testsuite/gfortran.dg/fmt_f_an_p.f b/gcc/testsuite/gfortran.dg/fmt_f_an_p.f
new file mode 100644 (file)
index 0000000..e492cec
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_f_an_p.f
@@ -0,0 +1,10 @@
+! { dg-do run }
+! PR38285 wrong i/o output: interaction between f and p for output
+! Special case of kPFw.d when d = 0
+      program f_and_p
+      character(28) string
+      write(string,1) 3742. , 0.3742
+    1 format ( f14.0, 4pf14.0 )
+      if (string.ne."         3742.         3742.") call abort
+      end program f_and_p
+