[Bug fortran/88902] ICE: Segmentation fault (in DFS::DFS_write_tree_body)

[jakub at gcc dot gnu.org]

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

--- Comment #7 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Author: jakub
Date: Sat Jan 19 08:43:12 2019
New Revision: 268091

URL: https://gcc.gnu.org/viewcvs?rev=268091&root=gcc&view=rev
Log:
        PR fortran/88902
        * trans-decl.c (gfc_get_symbol_decl): Don't add length to function
        or parent function if it has been added there already.

        * gfortran.dg/pr88902.f90: New test.

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