This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Re: [PATCH] Re: Some type mismatches

From: FX Coudert <fxcoudert at gmail dot com>
To: Richard Guenther <rguenther at suse dot de>
Cc: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
Date: Thu, 31 May 2007 17:54:42 +0200
Subject: Re: [PATCH] Re: Some type mismatches
References: <Pine.LNX.4.64.0705311524471.27490@zhemvz.fhfr.qr> <Pine.LNX.4.64.0705311633090.27490@zhemvz.fhfr.qr> <Pine.LNX.4.64.0705311716100.27490@zhemvz.fhfr.qr>

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

OK provided it bootstraps.

FX

Follow-Ups:
- Re: [PATCH] Re: Some type mismatches
  - From: Richard Guenther

References:
- Re: [PATCH] Re: Some type mismatches
  - From: Richard Guenther

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]