------- Comment #7 from jvdelisle at gcc dot gnu dot org 2008-01-28 08:09 ------- Correction: upper and lower
@@ -1041,6 +1042,12 @@ find_array_element (gfc_constructor *con goto depart; } + /* Make sure we are dealing with constants. */ + if (ar->as->upper[i]->expr_type != EXPR_CONSTANT + || + ar->as->lower[i]->expr_type != EXPR_CONSTANT) + goto depart; + mpz_sub (delta, e->value.integer, ar->as->lower[i]->value.integer); mpz_mul (delta, delta, span); mpz_add (offset, offset, delta); -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34828