PR fortran/52909
* trans-decl.c (get_proc_pointer_decl): Apply name mangling.
2012-12-10 Janus Weil <janus@gcc.gnu.org>
PR fortran/52909
* gfortran.dg/proc_ptr_39.f90: New test case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194375
138bc75d-0d04-0410-961f-
82ee72b054a4
+2012-12-10 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/52909
+ * trans-decl.c (get_proc_pointer_decl): Apply name mangling.
+
2012-12-09 Tobias Burnus <burnus@net-b.de>
* trans-array.c (gfc_deallocate_scalar_with_status): Use
VAR_DECL, get_identifier (sym->name),
build_pointer_type (gfc_get_function_type (sym)));
+ if (sym->module)
+ {
+ /* Apply name mangling. */
+ gfc_set_decl_assembler_name (decl, gfc_sym_mangled_identifier (sym));
+ if (sym->attr.use_assoc)
+ DECL_IGNORED_P (decl) = 1;
+ }
+
if ((sym->ns->proc_name
&& sym->ns->proc_name->backend_decl == current_function_decl)
|| sym->attr.contained)
+2012-12-10 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/52909
+ * gfortran.dg/proc_ptr_39.f90: New test case.
+
2012-12-10 Richard Sandiford <rdsandiford@googlemail.com>
* gcc.target/mips/octeon-bbit-2.c: Restructure loops so that no
--- /dev/null
+! { dg-do compile }
+!
+! PR 52909: [F03] Procedure pointers not private to modules
+!
+! Contributed by Andrew Benson <abenson@caltech.edu>
+
+module Module1
+ procedure(), pointer, private :: procPtr => null()
+end module
+
+module Module2
+ procedure(), pointer, private :: procPtr => null()
+end module
+
+program Test
+ use Module1
+ use Module2
+end program
+
+! { dg-final { cleanup-modules "Module1 Module2" } }