diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-04-21 18:28:39 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-04-21 18:28:39 +0000 |
| commit | eb09db463ab6dd4480d06cc360c57b0d2c37e33f (patch) | |
| tree | 521a71d8ffadf2b1cf46f97c835ce99e6569cdd1 | |
| parent | 72cb12b07770bf62cee1fe9c1a9d3c27da2968e6 (diff) | |
| download | gcc-eb09db463ab6dd4480d06cc360c57b0d2c37e33f.zip gcc-eb09db463ab6dd4480d06cc360c57b0d2c37e33f.tar.gz gcc-eb09db463ab6dd4480d06cc360c57b0d2c37e33f.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_unlimited.f90 | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cd810c3..c8f4aeb 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 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 |