[Bug fortran/90937] [7/8/9/10 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 #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Thu Jun 20 11:56:50 2019
New Revision: 272506

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

        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-20  Thomas Koenig  <tkoenig@gcc.gnu.org>

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


Added:
    trunk/gcc/testsuite/gfortran.dg/external_procedure_4.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-types.c
    trunk/gcc/testsuite/ChangeLog