diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 15:08:08 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 15:08:08 +0000 |
| commit | db171167f41ced8d3b161a8072a809176b586165 (patch) | |
| tree | 084328c4b46c739f98f59bde2e6941be7819ad1f /gcc/fortran/array.c | |
| parent | 66b23e9399d1c49181218a444efdbabea15d4308 (diff) | |
| download | gcc-db171167f41ced8d3b161a8072a809176b586165.tar.gz | |
array.c (gfc_find_array_ref): Remove coarray-specific handling.
* array.c (gfc_find_array_ref): Remove coarray-specific handling.
From-SVN: r180149
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index aa9cc0c3ab3..3e6b9d2591c 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) |