From eb09db463ab6dd4480d06cc360c57b0d2c37e33f Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 21 Apr 2015 18:28:39 +0000 Subject: [PATCH] re PR libfortran/65234 (Output descriptor (*(1E15.7)) not accepted) 2015-04-21 Jerry DeLisle PR libgfortran/65234 * gfortran.dg/fmt_unlimited.f90: New test. From-SVN: r222276 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_unlimited.f90 | 10 ++++++++++ 2 files changed, 15 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_unlimited.f90 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 + + PR libgfortran/65234 + * gfortran.dg/fmt_unlimited.f90: New test. + 2015-04-21 Andreas Tobler * 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