Message ID | 549C29FD.7060508@netcologne.de |
---|---|
State | New |
Headers | show |
> OK for trunk? What about the other open branches?
OK for trunk.
After it’s been in for a bit of time, probably OK for all active branches, unless someone (or you) think it’s unwise.
FX
Index: trans-array.c =================================================================== --- trans-array.c (Revision 219011) +++ trans-array.c (Arbeitskopie) @@ -4355,6 +4355,13 @@ gfc_conv_resolve_dependencies (gfc_loopinfo * loop && ss_expr->rank) nDepend = gfc_check_dependency (dest_expr, ss_expr, true); + /* Check for cases like c(:)(1:2) = c(2)(2:3) */ + if (!nDepend && dest_expr->rank > 0 + && dest_expr->ts.type == BT_CHARACTER + && ss_expr->expr_type == EXPR_VARIABLE) + + nDepend = gfc_check_dependency (dest_expr, ss_expr, false); + continue; }