https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71649
Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jvdelisle at gcc dot gnu.org
--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
possible patch:
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 6d3860e..c4c6cb4 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -6157,7 +6157,7 @@ create_intrinsic_function (const char *name, int id,
gfc_symbol *sym;
tmp_symtree = gfc_find_symtree (gfc_current_ns->sym_root, name);
- if (tmp_symtree)
+ if (tmp_symtree && tmp_symtree->n.sym && tmp_symtree->n.sym->module)
{
if (strcmp (modname, tmp_symtree->n.sym->module) == 0)
return;
With this code, the example compiles with errors. Does not like the subroutine
to have same name as the function in ISO_FORTRAN_ENV Compiler_Options.
