Hello,
Le 06/04/2014 18:05, Tobias Burnus a écrit :
> 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".
>
gfc_is_finalizable couldn't be used?
