re PR libfortran/65234 (Output descriptor (*(1E15.7)) not accepted)

2015-04-21 Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/65234
	* gfortran.dg/fmt_unlimited.f90: New test.

From-SVN: r222276

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cd810c3d6cb7cc904d8be3d32905744625ab33be..c8f4aebce25e023b92547629e2a7bbfd311c9f4d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-21 Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/65234
+       * gfortran.dg/fmt_unlimited.f90: New test.
+
 2015-04-21  Andreas Tobler  <andreast@gcc.gnu.org>
 
        * gcc.target/i386/avx512bw-vpermi2w-2.c: Fix includes to use actual

diff --git a/gcc/testsuite/gfortran.dg/fmt_unlimited.f90 b/gcc/testsuite/gfortran.dg/fmt_unlimited.f90
new file mode 100644 (file)
index 0000000..b1743a3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_unlimited.f90
@@ -0,0 +1,10 @@
+! { dg-do run }
+! PR65234  Output descriptor (*(1E15.7)) not accepted
+program IOtest
+  character(40) :: str
+  double precision :: d = 5.0
+  write (str, '(*(2(E15.7)))') d, d
+  if (str /= "  0.5000000E+01  0.5000000E+01") call abort
+  write (str, '(*(2E15.7))') d, d
+  if (str /= "  0.5000000E+01  0.5000000E+01") call abort
+end program