[rfa] fix reshape for 64-bit

Steven Bosscher stevenb@suse.de
Wed Dec 8 21:08:00 GMT 2004


On Tuesday 07 December 2004 10:38, Richard Henderson wrote:
> On Tue, Dec 07, 2004 at 08:46:51AM +0100, Steven Bosscher wrote:
> > I think we want gfc_convert_type_warn (shape, &ts, 2, 0) here: No warning
> > if there has to be a type conversion.  (Yes, the naming of these two
> > functions is confusing).
>
> Like so?
>
>
> r~
>
>
> 	* intrinsic.c (gfc_convert_type_warn): Copy shape too.
> 	* iresolve.c (gfc_resolve_cshift): Use gfc_convert_type_warn.
> 	(gfc_resolve_eoshift): Likewise.
> 	(gfc_resolve_reshape): Convert SHAPE and ORDER parameters
> 	to index_kind.

Yup.

Gr.
Steven



More information about the Fortran mailing list