[Bug fortran/58998] [4.8/4.9 Regression] Generic interface problem with gfortran

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org

--- Comment #7 from janus at gcc dot gnu.org ---
I propose the following patch:

Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c    (revision 206231)
+++ gcc/fortran/resolve.c    (working copy)
@@ -12732,7 +12732,8 @@ resolve_symbol (gfc_symbol *sym)
   if (sym->attr.flavor == FL_UNKNOWN
       || (sym->attr.flavor == FL_PROCEDURE && !sym->attr.intrinsic
       && !sym->attr.generic && !sym->attr.external
-      && sym->attr.if_source == IFSRC_UNKNOWN))
+      && sym->attr.if_source == IFSRC_UNKNOWN
+      && sym->ts.type == BT_UNKNOWN))
     {

     /* If we find that a flavorless symbol is an interface in one of the