[Bug fortran/40973] Mark PRIVATE module functions as STATIC to faciliate optimization

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40973

--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-04-08 
07:15:12 UTC ---
Author: burnus
Date: Sun Apr  8 07:15:01 2012
New Revision: 186223

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=186223
Log:
2012-04-08  Tobias Burnus  <bur...@net-b.de>

        PR fortran/52751
        * trans-decl.c (gfc_finish_var_decl): Don't set TREE_PUBLIC
        for PRIVATE module variables without C-binding label.

        PR fortran/40973
        * trans-decl.c (build_function_decl): Ditto for procedures.

2012-04-08  Tobias Burnus  <bur...@net-b.de>

        PR fortran/40973
        PR fortran/52751
        * gfortran.dg/public_private_module_2.f90: New.


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