2010-02-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/42999
	* array.c (gfc_constant_ac): Do not prevent expansion of constructors
	with iterators.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156642 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a417c1a..9505d26 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2010-02-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+       PR fortran/42999
+       * array.c (gfc_constant_ac): Do not prevent expansion of constructors
+       with iterators.
+
 2010-02-09  Jakub Jelinek  <jakub@redhat.com>
 
        * module.c (fix_mio_expr): Declare sym.

diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c
index 094026f..e0714e3 100644 (file)
--- 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;