From db9633ec5c9f1f260cd722e43c25df9485ba3620 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 10 Feb 2010 03:31:02 +0000 Subject: re PR fortran/42999 (bogus error: Parameter 'i' at (1) has not been declared or is a variable, which does not reduce to a constant expression) 2010-02-09 Jerry DeLisle PR fortran/42999 * array.c (gfc_constant_ac): Do not prevent expansion of constructors with iterators. From-SVN: r156642 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/array.c | 3 +-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a417c1a..9505d26 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-02-09 Jerry DeLisle + + PR fortran/42999 + * array.c (gfc_constant_ac): Do not prevent expansion of constructors + with iterators. + 2010-02-09 Jakub Jelinek * module.c (fix_mio_expr): Declare sym. diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 094026f..e0714e3 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1522,8 +1522,7 @@ gfc_constant_ac (gfc_expr *e) rc = SUCCESS; if (e->value.constructor - && e->value.constructor->expr->expr_type == EXPR_ARRAY - && !e->value.constructor->iterator) + && e->value.constructor->expr->expr_type == EXPR_ARRAY) { /* Expand the constructor. */ iter_stack = NULL; -- cgit v1.1