array.c (gfc_find_array_ref): Remove coarray-specific handling.
* array.c (gfc_find_array_ref): Remove coarray-specific handling. From-SVN: r180149
This commit is contained in:
parent
66b23e9399
commit
db171167f4
@ -1,3 +1,7 @@
|
||||
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
* array.c (gfc_find_array_ref): Remove coarray-specific handling.
|
||||
|
||||
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
PR fortran/50420
|
||||
|
@ -2296,8 +2296,7 @@ gfc_find_array_ref (gfc_expr *e)
|
||||
|
||||
for (ref = e->ref; ref; ref = ref->next)
|
||||
if (ref->type == REF_ARRAY
|
||||
&& (ref->u.ar.type == AR_FULL || ref->u.ar.type == AR_SECTION
|
||||
|| (ref->u.ar.type == AR_ELEMENT && ref->u.ar.dimen == 0)))
|
||||
&& (ref->u.ar.type == AR_FULL || ref->u.ar.type == AR_SECTION))
|
||||
break;
|
||||
|
||||
if (ref == NULL)
|
||||
|
Loading…
Reference in New Issue
Block a user