Message ID | CAKwh3qgQ_n292e0D1m5HORZ1qxEW6jPgk6eeO1c-Jsgofvh0fA@mail.gmail.com |
---|---|
State | New |
Headers | show |
On Mon, Dec 30, 2013 at 06:03:30PM +0100, Janus Weil wrote: > > I even volunteer to make a start with the one mentioned in the subject > line. The fix is actually easy once you know where to look (which was > simplified a lot by Dominique's efforts to identify the blameworthy > commit). > > The rather straightforward one-line patch was regtested on > x86_64-unknown-linux-gnu. Ok for trunk and 4.8? > OK.
>> The rather straightforward one-line patch was regtested on >> x86_64-unknown-linux-gnu. Ok for trunk and 4.8? >> > > OK. Thanks, Steve. Committed as r206249. Cheers, Janus
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