------- 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