OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Jerry DeLisle 2015-04-21 18:28:39 +00:00
parent 72cb12b077
commit eb09db463a
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

10
gcc/testsuite/gfortran.dg/fmt_unlimited.f90 Normal file
View File

@ -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