mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-24 19:01:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/60810 (list directed io from array results in end of file)

Browse Source 
2014-04-11  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/60810
	io/unit.c (is_trim_ok): If internal unit is array, do not trim.

From-SVN: r209329
This commit is contained in:
Jerry DeLisle 2014-04-12 00:04:41 +00:00
parent cbbd2b1c82
commit 861b2d2cde
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2014-04-11 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/60810
io/unit.c (is_trim_ok): If internal unit is array, do not trim.
2014-03-21 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/60148

4
libgfortran/io/unit.c
View File

@ -382,9 +382,7 @@ static bool
is_trim_ok (st_parameter_dt *dtp)
{
/* Check rank and stride. */
if (dtp->internal_unit_desc
&& (GFC_DESCRIPTOR_RANK (dtp->internal_unit_desc) > 1
|| GFC_DESCRIPTOR_STRIDE(dtp->internal_unit_desc, 0) != 1))
if (dtp->internal_unit_desc)
return false;
/* Format strings can not have 'BZ' or '/'. */
if (dtp->common.flags & IOPARM_DT_HAS_FORMAT)