[Bug fortran/90937] [7/8/9 Regression] ICE: in gfc_get_symbol_decl, at fortran/trans-decl.c:1538

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90937

--- Comment #9 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Fri Jun 21 19:32:23 2019
New Revision: 272566

URL: https://gcc.gnu.org/viewcvs?rev=272566&root=gcc&view=rev
Log:
2019-06-21  Thomas Koenig  <tkoenig@gcc.gnu.org>

        Backport from trunk
        PR fortran/90937
        * trans-types.c (get_formal_from_actual_arglist): Get symbol from
        current namespace so it will be freed later.  If symbol is of type
        character, get an empty character length.

2019-06-21  Thomas Koenig  <tkoenig@gcc.gnu.org>

        Backport from trunk
        PR fortran/90937
        * gfortran.dg/external_procedure_4.f90: New test.


Modified:
    branches/gcc-7-branch/gcc/fortran/ChangeLog
    branches/gcc-7-branch/gcc/fortran/trans-types.c
    branches/gcc-7-branch/gcc/testsuite/ChangeLog