[PATCH] (Partial) Implementation of simplificaiton of CSHIFT

[Steve Kargl]

On Thu, Nov 19, 2015 at 04:58:36PM -0800, Steve Kargl wrote:
> +  else
> +    {
> +      int dm;
> +
> +      if (dim)
> +	{
> +	  if (!gfc_is_constant_expr (dim))
> +	    return NULL;
> +
> +	  dm = mpz_get_si (dim->value.integer);
> +	}
> +      else
> +	dm = 1;
> +
> +      gfc_error ("Simplification of CSHIFT with an array with rank > 1 "
> +	         "no yet support");
> +    }
> +

To save some time, the dim portion of the patch isn't
correct.  dim can be scalar or rank 1 array.  I'll
#if 0 ... #endif this section unless I persevere with
the rank > 1 case.

-- 
Steve