diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cd810c3d6cb..c8f4aebce25 100644
--- 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
index 00000000000..b1743a35622
--- /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