http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51517
Jakub Jelinek <jakub at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |ASSIGNED
AssignedTo|unassigned at gcc dot |jakub at gcc dot gnu.org
|gnu.org |
--- Comment #2 from Jakub Jelinek <jakub at gcc dot gnu.org> 2011-12-14
15:14:22 UTC ---
Created attachment 26081
--> http://gcc.gnu.org/bugzilla/attachment.cgi?id=26081
gcc47-pr51517.patch
Untested fix.
OT, can anyone please explain the following in trans-decl.c
(gfc_trans_deferred_vars):
else if ((!sym->attr.dummy || sym->ts.deferred)
&& (sym->ts.type == BT_CLASS
&& CLASS_DATA (sym)->attr.pointer))
break;
? The break there will IMHO just cause the rest of the *->tlink chain deferred
vars not to be processed at all, is that the right thing to do? continue; or ;
would make much more sense to me...
