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

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6d92f9a655fe997b92b275ef06ba6c7d7b6bcb6c..7bfdfc439a0e49cb5b44b666e25722f3b0454c56 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index e522195e5dddc06954ea957b9848faab773b6441..385818adc1f5d0c00493f0f5a1b1f656ba3000ac 100644 (file)
--- a/libgfortran/io/unit.c
+++ b/libgfortran/io/unit.c
@@ -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)