[Bug fortran/87734] [7/8/9 Regression] ICE in is_illegal_recursion check for character len= parameter

[tkoenig at gcc dot gnu.org]

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

--- Comment #13 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Sun Mar 10 09:34:46 2019
New Revision: 269547

URL: https://gcc.gnu.org/viewcvs?rev=269547&root=gcc&view=rev
Log:
2019-03-10  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/87734
        * symbol.c (gfc_add_procedure): Only throw an error if the
        procedure has not been declared either PUBLIC or PRIVATE.

2019-03-10  Thomas Koenig  <tkoe...@gcc.gnu.org>

        PR fortran/87734
        * gfortran.dg/public_private_module_10.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/public_private_module_10.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/symbol.c
    trunk/gcc/testsuite/ChangeLog