------- Comment #3 from janus at gcc dot gnu dot org 2009-08-20 08:04 -------
Here's the fix:
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 150933)
+++ gcc/fortran/resolve.c (working copy)
@@ -10280,7 +10280,7 @@ resolve_symbol (gfc_symbol *sym)
/* Resolve formal namespaces. */
if (sym->formal_ns && sym->formal_ns != gfc_current_ns
- && !sym->attr.contained)
+ && !sym->attr.contained && !sym->attr.intrinsic)
gfc_resolve (sym->formal_ns);
/* Make sure the formal namespace is present. */
Will commit as obvious after performing a regtest.
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |janus at gcc dot gnu dot org
|dot org |
Status|NEW |ASSIGNED
Last reconfirmed|2009-08-19 15:26:19 |2009-08-20 08:04:37
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41121
