From: Mikael Morin Date: Tue, 18 Oct 2011 15:08:08 +0000 (+0000) Subject: array.c (gfc_find_array_ref): Remove coarray-specific handling. X-Git-Tag: releases/gcc-4.7.0~3003 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=db171167f41ced8d3b161a8072a809176b586165;p=thirdparty%2Fgcc.git array.c (gfc_find_array_ref): Remove coarray-specific handling. * array.c (gfc_find_array_ref): Remove coarray-specific handling. From-SVN: r180149 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 57522e76aeb7..18e209f63be0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2011-10-18 Mikael Morin + + * array.c (gfc_find_array_ref): Remove coarray-specific handling. + 2011-10-18 Mikael Morin PR fortran/50420 diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index aa9cc0c3ab39..3e6b9d2591c5 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -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)