This is the mail archive of the
mailing list for the GNU Fortran project.
Re: [Patch, fortran] PR37583 - ICE "insert_bbt(): Duplicate key" for self-calling ENTRY subprogram
Paul Richard Thomas wrote:
>> OK. Thanks for the quick patch
> I realised that instead of adding a line as in:
> && module_procedure
> - && gfc_current_ns->proc_name->attr.function))
> + && (gfc_current_ns->proc_name->attr.function
> + || gfc_current_ns->proc_name->attr.subroutine)))
> elimination works just as well...
> if (get_proc_name (name, &entry,
> gfc_current_ns->parent != NULL
> && module_procedure)
Makes sense since everything which is a module_procedure should be
either a function or a subroutine. Just for completeness, the modified
patch is also OK.