https://gcc.gnu.org/bugzilla/show_bug.cgi?id=50555
--- Comment #6 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
This patch:
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 64d59cee..8a465db6 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -14275,6 +14275,13 @@ resolve_symbol (gfc_symbol *sym)
if (sym->ns != formal->sym->ns)
sym->formal_ns->refs++;
}
+
+ /* Check that none of the arguments are a namelist.. */
+ for (formal = sym->formal; formal; formal = formal->next)
+ if (formal->sym && formal->sym->attr.flavor == FL_NAMELIST)
+ gfc_error ("Namelist '%s' as argument to procedure at %L "
+ "not allowed.", formal->sym->name,
+ &sym->declared_at);
}
/* Check threadprivate restrictions. */
results in:
$ gfc pr50555.f90
pr50555.f90:3:7:
f(i)=0
1
Error: Namelist 'i' as argument to procedure at (1) not allowed.
