2007-07-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31609
* resolve.c (generic_sym): Check for a same symbol and if so, return to
avoid infinite recursion.
From-SVN: r127026
+2007-07-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/31609
+ * resolve.c (generic_sym): Check for a same symbol and if so, return to
+ avoid infinite recursion.
+
2007-07-28 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31818
return 0;
gfc_find_symbol (sym->name, sym->ns->parent, 1, &s);
+
+ if (s != NULL)
+ {
+ if (s == sym)
+ return 0;
+ else
+ return generic_sym (s);
+ }
- return (s == NULL) ? 0 : generic_sym (s);
+ return 0;
}