This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [rfa] fix reshape for 64-bit
- From: Steven Bosscher <stevenb at suse dot de>
- To: fortran at gcc dot gnu dot org
- Cc: Richard Henderson <rth at redhat dot com>, gcc-patches at gcc dot gnu dot org
- Date: Tue, 7 Dec 2004 08:46:51 +0100
- Subject: Re: [rfa] fix reshape for 64-bit
- Organization: SUSE Labs
- References: <20041207065547.GA20109@redhat.com>
On Tuesday 07 December 2004 07:55, Richard Henderson wrote:
> Index: iresolve.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/iresolve.c,v
> retrieving revision 1.23
> diff -c -p -d -r1.23 iresolve.c
> *** iresolve.c 2 Dec 2004 04:10:24 -0000 1.23
> --- iresolve.c 7 Dec 2004 06:49:48 -0000
> *************** gfc_resolve_reshape (gfc_expr * f, gfc_e
> *** 1172,1177 ****
> --- 1172,1186 ----
> c = c->next;
> }
> }
> +
> + if (shape->ts.kind != gfc_index_integer_kind)
> + {
> + gfc_typespec ts = shape->ts;
> + ts.kind = gfc_index_integer_kind;
> + gfc_convert_type (shape, &ts, 2);
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).
> + }
> + if (order && order->ts.kind != gfc_index_integer_kind)
> + gfc_convert_type (order, &shape->ts, 2);
> }
Same here.
Gr.
Steven