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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/fmt_unlimited.f90

+! { 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