OSDN Git Service

* array.c (gfc_find_array_ref): Remove coarray-specific handling.
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 18 Oct 2011 15:08:08 +0000 (15:08 +0000)
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 18 Oct 2011 15:08:08 +0000 (15:08 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@180149 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/array.c

index 57522e7..18e209f 100644 (file)
@@ -1,5 +1,9 @@
 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.
 
index aa9cc0c..3e6b9d2 100644 (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)