[Bug fortran/32464] [4.3 regression] ICE: USE in contained subroutine

[pault at gcc dot gnu dot org]

------- Comment #9 from pault at gcc dot gnu dot org  2007-06-23 10:48 -------
This does the job:

Index: /svn/trunk/gcc/fortran/resolve.c
===================================================================
--- /svn/trunk/gcc/fortran/resolve.c    (revision 125970)
+++ /svn/trunk/gcc/fortran/resolve.c    (working copy)
@@ -3229,7 +3229,8 @@ check_host_association (gfc_expr *e)
     return e->expr_type == EXPR_FUNCTION;

   old_sym = e->symtree->n.sym;
-  if (gfc_current_ns->parent
+  if (!old_sym->attr.use_assoc
+       && gfc_current_ns->parent
        && gfc_current_ns->parent->parent
        && old_sym->ns != gfc_current_ns)
     {

and we probably need to exclude intrinsics, I suppose.  I'll think about it.

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-06-22 18:17:45         |2007-06-23 10:48:39
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32464