diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-08-17 11:14:18 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-08-17 11:14:18 +0200 |
| commit | 30228b6181ada932f357f43fc502fa3c4dc06ee9 (patch) | |
| tree | 30d0a73d9cfc0c2d6079fc219127b33049960cf9 /gcc/fortran/resolve.c | |
| parent | 0de8f67e3f86fdadc9a2a6c785bf734f7eecf656 (diff) | |
| download | gcc-30228b6181ada932f357f43fc502fa3c4dc06ee9.zip gcc-30228b6181ada932f357f43fc502fa3c4dc06ee9.tar.gz gcc-30228b6181ada932f357f43fc502fa3c4dc06ee9.tar.bz2 | |
re PR fortran/50070 (Segmentation fault at size_binop_loc in fold-const.c)
2011-08-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/50070
* resolve.c (resolve_fl_variable): Reject non-constant character lengths
in COMMON variables.
2011-08-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/50070
* gfortran.dg/common_13.f90: New.
From-SVN: r177825
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 27e3ce9..7557ab8 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -10169,15 +10169,22 @@ resolve_fl_variable (gfc_symbol *sym, int mp_flag) if (!gfc_is_constant_expr (e) && !(e->expr_type == EXPR_VARIABLE - && e->symtree->n.sym->attr.flavor == FL_PARAMETER) - && sym->ns->proc_name - && (sym->ns->proc_name->attr.flavor == FL_MODULE - || sym->ns->proc_name->attr.is_main_program) - && !sym->attr.use_assoc) - { - gfc_error ("'%s' at %L must have constant character length " - "in this context", sym->name, &sym->declared_at); - return FAILURE; + && e->symtree->n.sym->attr.flavor == FL_PARAMETER)) + { + if (!sym->attr.use_assoc && sym->ns->proc_name + && (sym->ns->proc_name->attr.flavor == FL_MODULE + || sym->ns->proc_name->attr.is_main_program)) + { + gfc_error ("'%s' at %L must have constant character length " + "in this context", sym->name, &sym->declared_at); + return FAILURE; + } + if (sym->attr.in_common) + { + gfc_error ("COMMON variable '%s' at %L must have constant " + "character length", sym->name, &sym->declared_at); + return FAILURE; + } } } |