[Bug fortran/84394] [7/8/9 Regression] compiler error when using modules with derived types in block data subprograms

[tkoenig at gcc dot gnu.org]

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

--- Comment #6 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Sat Mar 16 11:50:03 2019
New Revision: 269721

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

        PR fortran/84394
        * symbol.c (gfc_add_subroutine): If we are encountering a
        subrtoutine within a BLOCK DATA and the name starts with an
        underscore, do not check.

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

        PR fortran/84394
        * gfortran.dg/blockdata_11.f90: New test.


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