------- Comment #7 from janus at gcc dot gnu dot org 2009-07-14 16:53 -------
Here is a much better patch:
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c (revision 149623)
+++ gcc/fortran/resolve.c (working copy)
@@ -9842,7 +9842,8 @@ resolve_symbol (gfc_symbol *sym)
formal_arg_flag = 0;
/* Resolve formal namespaces. */
- if (sym->formal_ns && sym->formal_ns != gfc_current_ns)
+ if (sym->formal_ns && sym->formal_ns != gfc_current_ns
+ && !sym->attr.contained)
gfc_resolve (sym->formal_ns);
/* Make sure the formal namespace is present. */
At least this works for iso_varying_string.f90 and the procptr test cases.
Starting a full regtest now.
--
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-07-14 13:20:29 |2009-07-14 16:53:59
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40743
