PR libfortran/60810
io/unit.c (is_trim_ok): If internal unit is array, do not trim.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@209329
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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)