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
This commit is contained in:
parent
72cb12b077
commit
eb09db463a
|
@ -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>
|
2015-04-21 Andreas Tobler <andreast@gcc.gnu.org>
|
||||||
|
|
||||||
* gcc.target/i386/avx512bw-vpermi2w-2.c: Fix includes to use actual
|
* gcc.target/i386/avx512bw-vpermi2w-2.c: Fix includes to use actual
|
||||||
|
|
|
@ -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
|
Loading…
Reference in New Issue