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

Reply via email to