diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 8752fd4..e6c3ff9 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -14226,6 +14226,21 @@ resolve_symbol (gfc_symbol *sym) break; case FL_PROCEDURE: + if (sym->formal && !sym->formal_ns) + { + /* Check that none of the arguments are a namelist. */ + gfc_formal_arglist *formal = sym->formal; + + for (; formal; formal = formal->next) + if (formal->sym && formal->sym->attr.flavor == FL_NAMELIST) + { + gfc_error ("Namelist '%s' can not be an argument to " + "subroutine or function at %L", + formal->sym->name, &sym->declared_at); + return; + } + } + if (!resolve_fl_procedure (sym, mp_flag)) return; break; |