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
* check.c (dim_corank_check): Use gfc_get_corank to get corank.
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)