From 30228b6181ada932f357f43fc502fa3c4dc06ee9 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Wed, 17 Aug 2011 11:14:18 +0200 Subject: [PATCH] re PR fortran/50070 (Segmentation fault at size_binop_loc in fold-const.c) 2011-08-17 Janus Weil PR fortran/50070 * resolve.c (resolve_fl_variable): Reject non-constant character lengths in COMMON variables. 2011-08-17 Janus Weil PR fortran/50070 * gfortran.dg/common_13.f90: New. From-SVN: r177825 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 23 +++++++++++++++-------- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/common_13.f90 | 11 +++++++++++ 4 files changed, 37 insertions(+), 8 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/common_13.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 63d5327aad8..d7f4b6d37d5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-08-17 Janus Weil + + PR fortran/50070 + * resolve.c (resolve_fl_variable): Reject non-constant character lengths + in COMMON variables. + 2011-08-16 Tobias Burnus Dominique Dhumieres diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 27e3ce995ba..7557ab8891d 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) + && e->symtree->n.sym->attr.flavor == FL_PARAMETER)) { - gfc_error ("'%s' at %L must have constant character length " - "in this context", sym->name, &sym->declared_at); - return FAILURE; + 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; + } } } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f435f140b85..1d070a8b433 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-08-17 Janus Weil + + PR fortran/50070 + * gfortran.dg/common_13.f90: New. + 2011-08-16 Jason Merrill PR c++/50086 diff --git a/gcc/testsuite/gfortran.dg/common_13.f90 b/gcc/testsuite/gfortran.dg/common_13.f90 new file mode 100644 index 00000000000..07c78f1a73c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/common_13.f90 @@ -0,0 +1,11 @@ +! { dg-do compile } +! +! PR 50070: Segmentation fault at size_binop_loc in fold-const.c +! +! Contributed by Vittorio Zecca + +subroutine sub + common n,z ! { dg-error "must have constant character length" } + integer :: n + character(len=n) :: z +end