diff options
| -rw-r--r-- | gcc/fortran/coarray.cc | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/gcc/fortran/coarray.cc b/gcc/fortran/coarray.cc index c611b53..b3271e5 100644 --- a/gcc/fortran/coarray.cc +++ b/gcc/fortran/coarray.cc @@ -696,22 +696,6 @@ check_add_new_component (gfc_symbol *type, gfc_expr *e, gfc_symbol *add_data) check_add_new_component (type, actual->expr, add_data); break; case EXPR_FUNCTION: - if ((e->symtree->n.sym->attr.pure - && e->symtree->n.sym->attr.elemental) - || (e->value.function.isym && e->value.function.isym->pure - && e->value.function.isym->elemental)) - { - /* Only allow pure and elemental function calls in a coarray - accessor, because all other may have side effects or access - pointers, which may not be possible in the accessor running on - another host. */ - for (gfc_actual_arglist *actual = e->value.function.actual; - actual; actual = actual->next) - check_add_new_component (type, actual->expr, add_data); - } - else - /* Extract the expression, evaluate it and add a temporary with its - value to the helper structure. */ check_add_new_comp_handle_array (e, type, add_data); break; case EXPR_VARIABLE: |