http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48706
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |ASSIGNED
--- Comment #3 from janus at gcc dot gnu.org 2011-05-18 22:39:06 UTC ---
Early patch (not regtested):
Index: gcc/fortran/module.c
===================================================================
--- gcc/fortran/module.c (Revision 173873)
+++ gcc/fortran/module.c (Arbeitskopie)
@@ -4817,6 +4817,9 @@ write_dt_extensions (gfc_symtree *st)
{
if (!gfc_check_symbol_access (st->n.sym))
return;
+ if (!(st->n.sym->ns && st->n.sym->ns->proc_name
+ && st->n.sym->ns->proc_name->attr.flavor == FL_MODULE))
+ return;
mio_lparen ();
mio_pool_string (&st->n.sym->name);
Prevents writing the dt into the mod file, if its parent ns is not a module
(but a subroutine).
