Index: trans-array.c
===================================================================
*** trans-array.c (revision 125217)
--- trans-array.c (working copy)
*************** gfc_trans_array_constructor_value (stmtb
*** 1196,1202 ****
gfc_add_expr_to_block (&body, tmp);
*poffset = fold_build2 (PLUS_EXPR, gfc_array_index_type,
! *poffset, build_int_cst (NULL_TREE, n));
}
if (!INTEGER_CST_P (*poffset))
{
--- 1196,1203 ----
gfc_add_expr_to_block (&body, tmp);
*poffset = fold_build2 (PLUS_EXPR, gfc_array_index_type,
! *poffset,
! build_int_cst (gfc_array_index_type, n));
}
if (!INTEGER_CST_P (*poffset))
{