[Bug fortran/54884] [4.8 Regression] Externally used PRIVATE module procedure wrongly marked as TREE_PUBLIC()=0

[burnus at gcc dot gnu.org]

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



--- Comment #10 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-12-23 
18:43:36 UTC ---

Author: burnus

Date: Sun Dec 23 18:43:32 2012

New Revision: 194706



URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=194706

Log:

2012-12-23  Tobias Burnus  <bur...@net-b.de>



        PR fortran/54884

        * module.c (write_symbol1_recursion): Set attr.public_use.

        * interface.c (check_sym_interfaces, check_uop_interfaces,

        gfc_check_interfaces): Remove attr.public_use code.

        * resolve.c (resolve_function, resolve_variable,

        resolve_typebound_procedure): Ditto.



2012-12-23  Tobias Burnus  <bur...@net-b.de>



        PR fortran/54884

        * gfortran.dg/public_private_module_8.f90: New.





Added:

    trunk/gcc/testsuite/gfortran.dg/public_private_module_8.f90

Modified:

    trunk/gcc/fortran/ChangeLog

    trunk/gcc/fortran/interface.c

    trunk/gcc/fortran/module.c

    trunk/gcc/fortran/resolve.c

    trunk/gcc/testsuite/ChangeLog