diff options
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index fb4029c..d25d3de 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1552,6 +1552,12 @@ match_actual_arg (gfc_expr **result) sym = symtree->n.sym; gfc_set_sym_referenced (sym); + if (sym->attr.flavor == FL_NAMELIST) + { + gfc_error ("Namelist '%s' can not be an argument at %L", + sym->name, &where); + break; + } if (sym->attr.flavor != FL_PROCEDURE && sym->attr.flavor != FL_UNKNOWN) break; @@ -3219,6 +3225,10 @@ gfc_match_rvalue (gfc_expr **result) m = gfc_match_actual_arglist (0, &e->value.function.actual); break; + case FL_NAMELIST: + m = MATCH_ERROR; + break; + default: gfc_error ("Symbol at %C is not appropriate for an expression"); return MATCH_ERROR; |