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:
Mikael Morin 2011-10-18 15:08:08 +00:00
parent 66b23e9399
commit db171167f4
2 changed files with 5 additions and 2 deletions

View File

@ -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

View File

@ -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)