------- Comment #3 from tkoenig at gcc dot gnu dot org 2007-12-21 20:56 -------
The problem is with the lines
if (dim->expr_type != EXPR_CONSTANT)
{
/* Mark this for later setting the type in gfc_conv_missing_dummy.
*/
dim->representation.length = shift->ts.kind;
}
else
{
gfc_resolve_dim_arg (dim);
/* Convert dim to shift's kind to reduce variations. */
if (dim->ts.kind != shift->ts.kind)
gfc_convert_type_warn (dim, &shift->ts, 2, 0);
}
For the test case, we take the first branch, which means we never
adjust dim's kind.
Jerry, you did some work in this area. I'mm CC: ing you on
this in case this rings a bell.
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jvdelisle at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34540
