array.c (gfc_find_array_ref): Remove coarray-specific handling.

* array.c (gfc_find_array_ref): Remove coarray-specific handling. From-SVN: r180149

array.c (gfc_find_array_ref): Remove coarray-specific handling.
* array.c (gfc_find_array_ref): Remove coarray-specific handling. From-SVN: r180149
db171167 · Mikael Morin · 66b23e93 · db171167 · db171167
Commit db171167 authored Oct 18, 2011 by Mikael Morin
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

gcc/fortran/ChangeLog
+4 -0

gcc/fortran/array.c
+1 -2

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
 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.


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