[rfa] fix reshape for 64-bit

[Steven Bosscher]

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