[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  ---
Author: tkoenig
Date: Sat Mar 16 11:50:03 2019
New Revision: 269721

URL: https://gcc.gnu.org/viewcvs?rev=269721=gcc=rev
Log:
2019-03-16  Thomas Koenig  

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  

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

[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

Thomas Koenig  changed:

   What|Removed |Added

 Status|NEW |ASSIGNED
   Assignee|unassigned at gcc dot gnu.org  |tkoenig at gcc dot 
gnu.org
Summary|[7/8 Regression] compiler   |[7/8/9 Regression] compiler
   |error when using modules|error when using modules
   |with derived types in block |with derived types in block
   |data subprograms|data subprograms

--- Comment #5 from Thomas Koenig  ---
Actually, this is not fixed, there is no PRIVATE in the
original source code.

I think I know how to fix this.

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

[rguenth at gcc dot gnu.org]

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

Richard Biener  changed:

   What|Removed |Added

   Target Milestone|7.4 |7.5