http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60810
--- Comment #6 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
I would like to request the following be applied to the 4.9 release candidate
if possible. It reverts a portion of the original patch that caused this
regression.
I will then do this for 4.7, 4.8, 4.9, and 4.10. Please advise.
Index: unit.c
===================================================================
--- unit.c (revision 209325)
+++ unit.c (working copy)
@@ -382,9 +382,7 @@
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)
