This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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.

Tobias


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]