diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-04-27 23:49:36 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-04-27 23:49:36 +0200 |
| commit | d8df7c404e233abb1e26d8b8370c460732904531 (patch) | |
| tree | 00c6677e3e90394939b2d392cf8c7d2a16544c1a /gcc/fortran/interface.c | |
| parent | 6dffa67b46dc2d4deb25951f8b17e823f559cf3a (diff) | |
| download | gcc-d8df7c404e233abb1e26d8b8370c460732904531.zip gcc-d8df7c404e233abb1e26d8b8370c460732904531.tar.gz gcc-d8df7c404e233abb1e26d8b8370c460732904531.tar.bz2 | |
Revert r10-7920-g06eca1acafa27e19e82dc73927394a7a4d0bdbc5 .
2020-04-27 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/93956
PR fortran/94788
* expr.c (gfc_check_pointer_assign): Revert patch for PR 93956.
* interface.c: Likewise.
2020-04-27 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/93956
PR fortran/94788
* gfortran.dg/pointer_assign_13.f90: Remove.
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 58b7abf..ba1c8bc 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -3788,36 +3788,6 @@ check_intents (gfc_formal_arglist *f, gfc_actual_arglist *a) return true; } -/* Go through the argument list of a procedure and look for - pointers which may be set, possibly introducing a span. */ - -static void -gfc_set_subref_array_pointer_arg (gfc_formal_arglist *dummy_args, - gfc_actual_arglist *actual_args) -{ - gfc_formal_arglist *f; - gfc_actual_arglist *a; - gfc_symbol *a_sym; - for (f = dummy_args, a = actual_args; f && a ; f = f->next, a = a->next) - { - - if (f->sym == NULL) - continue; - - if (!f->sym->attr.pointer || f->sym->attr.intent == INTENT_IN) - continue; - - if (a->expr == NULL || a->expr->expr_type != EXPR_VARIABLE) - continue; - a_sym = a->expr->symtree->n.sym; - - if (!a_sym->attr.pointer) - continue; - - a_sym->attr.subref_array_pointer = 1; - } - return; -} /* Check how a procedure is used against its interface. If all goes well, the actual argument list will also end up being properly @@ -3998,10 +3968,6 @@ gfc_procedure_use (gfc_symbol *sym, gfc_actual_arglist **ap, locus *where) if (warn_aliasing) check_some_aliasing (dummy_args, *ap); - /* Set the subref_array_pointer_arg if needed. */ - if (dummy_args) - gfc_set_subref_array_pointer_arg (dummy_args, *ap); - return true; } |