* simplify.c (simplify_cobound): Accept non-last-in-ref-chain coarrays.
Don't set already set array ref.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@180150
138bc75d-0d04-0410-961f-
82ee72b054a4
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
+ PR fortran/50420
+ * simplify.c (simplify_cobound): Accept non-last-in-ref-chain coarrays.
+ Don't set already set array ref.
+
+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>
switch (ref->u.ar.type)
{
case AR_ELEMENT:
- if (ref->next == NULL)
+ if (ref->u.ar.as->corank > 0)
{
- gcc_assert (ref->u.ar.as->corank > 0
- && ref->u.ar.as->rank == 0);
- as = ref->u.ar.as;
+ gcc_assert (as == ref->u.ar.as);
goto done;
}
as = NULL;