Re: [Patch, Fortran] PRs 60495/58880: Fix issues with finalization expressions

[Tobias Burnus <burnus at net-b dot de>]

Bernhard Reutner-Fischer wrote:
> On Sat, Apr 05, 2014 at 12:16:23AM +0200, Tobias Burnus wrote:
> > +	    bool has_final2 = false;
> > +	    if (!gfc_resolve_finalizers (c->ts.u.derived, &has_final))
> > +	      return false;  /* Error.  */
> > +	    has_final = has_final || has_final2;
>
> debugging-leftover? What's the purpose of has_final2?
> Did you mean has_final |= true i.e. has_final = true here?
> What am i missing? :)

It is supposed to propagate the information whether any of the 
components ("c") has a derived type. However, I made a typo: It should 
be "&has_final2" instead of "&has_final".

If you/one prefers, one can also do: "has_final |= has_final2;"

Tobias