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