http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47850
--- Comment #13 from Paul Thomas <pault at gcc dot gnu.org> 2011-03-06 16:19:02
UTC ---
(In reply to comment #12)
Jerry,
Based in this and comment #11, I noted that the place where this was failing
was iterator-free EXPR_ARRAYs. I then leapt to the following patch, which is
just now regtesting (it's up to typebound_generic_4.f03):
Index: /svn/trunk/gcc/fortran/expr.c
===================================================================
*** /svn/trunk/gcc/fortran/expr.c (revision 170337)
--- /svn/trunk/gcc/fortran/expr.c (working copy)
*************** gfc_is_constant_expr (gfc_expr *e)
*** 937,952 ****
return e->ref == NULL || (gfc_is_constant_expr (e->ref->u.ss.start)
&& gfc_is_constant_expr (e->ref->u.ss.end));
case EXPR_STRUCTURE:
! for (c = gfc_constructor_first (e->value.constructor);
! c; c = gfc_constructor_next (c))
if (!gfc_is_constant_expr (c->expr))
return 0;
return 1;
- case EXPR_ARRAY:
- return gfc_constant_ac (e);
default:
gfc_internal_error ("gfc_is_constant_expr(): Unknown expression type");
--- 937,954 ----
return e->ref == NULL || (gfc_is_constant_expr (e->ref->u.ss.start)
&& gfc_is_constant_expr (e->ref->u.ss.end));
+ case EXPR_ARRAY:
case EXPR_STRUCTURE:
! c = gfc_constructor_first (e->value.constructor);
! if ((e->expr_type == EXPR_ARRAY) && c && c->iterator)
! return gfc_constant_ac (e);
!
! for (; c; c = gfc_constructor_next (c))
if (!gfc_is_constant_expr (c->expr))
return 0;
return 1;
default:
gfc_internal_error ("gfc_is_constant_expr(): Unknown expression type");
Cheers
Paul
