This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [PATCH] Re: Some type mismatches
On Thu, 31 May 2007, Richard Guenther wrote:
>
> So here's the complete patch, bootstrapped and tested on
> x86_64-unknown-linux-gnu. Ok for mainline?
>
> Thanks,
> Richard.
>
> 2007-05-31 Richard Guenther <rguenther@suse.de>
>
> * trans-expr.c (gfc_conv_expr_op): Use zero constant
> that matches the lse type.
> (gfc_trans_string_copy): Use sizetype zero constant.
> * intrinsic.c (add_functions): The sizeof intrinsic has
> index type result.
> * trans-types.c (gfc_get_dtype): Convert size to index
> type before shifting.
And another one (again 4 byte integer vs. 8 byte integer):
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))
{