diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-02-07 20:15:55 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-02-07 20:15:55 +0000 |
| commit | c0f0e35a6d913017e973fa097cd4df0eea757329 (patch) | |
| tree | 2e8313d888a90be8c25d68bbb0469ca89cb793a1 /gcc/fortran/resolve.c | |
| parent | fc7d77bbf6b7b0d9aefde864c89c0c97de50b95b (diff) | |
| download | gcc-c0f0e35a6d913017e973fa097cd4df0eea757329.zip gcc-c0f0e35a6d913017e973fa097cd4df0eea757329.tar.gz gcc-c0f0e35a6d913017e973fa097cd4df0eea757329.tar.bz2 | |
re PR fortran/50555 (synonymous namelist/statement function dummy argument not allowed (r178939))
2016-02-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/50555
* primary.c (match_actual_arg): If symbol has attribute flavor of
namelist, generate an error. (gfc_match_rvalue): Likewise return
MATCH_ERROR.
* resolve.c (resolve_symbol): Scan arument list of procedures and
generate an error if a namelist is found.
PR fortran/50555
* gfortran.dg/namelist_args.f90: New test.
From-SVN: r233203
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; |