http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54884
--- Comment #5 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-10-18 17:09:19 UTC --- Author: burnus Date: Thu Oct 18 17:09:13 2012 New Revision: 192571 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=192571 Log: 2012-10-18 Tobias Burnus <bur...@net-b.de> PR fortran/54884 * resolve.c (specification_expr): Change to bool. (resolve_formal_arglist, resolve_symbol): Set specification_expr to true before resolving the array spec. (resolve_variable, resolve_charlen, resolve_fl_variable): Properly reset specification_expr. (resolve_function): Set public_use when used in a specification expr. 2012-10-18 Tobias Burnus <bur...@net-b.de> PR fortran/54884 * gfortran.dg/public_private_module_7.f90: New. Added: trunk/gcc/testsuite/gfortran.dg/public_private_module_7.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/resolve.c trunk/gcc/testsuite/ChangeLog
