Hi Steve,
else
gfc_free_expr (n);
Don't you need the above changes to avoid leaking memory?
Correct.
OK with those changes?
Regards
Thomas
On Mon, Apr 02, 2018 at 02:05:29PM +0200, Thomas König wrote:
> + if (as->type == AS_EXPLICIT)
> + {
> + for (int i = 0; i < as->rank; i++)
> + {
> + gfc_expr *e, *n;
> + e = as->lower[i];
> + if (e->expr_type != EXPR_CONSTANT)
> + {
Hi everybody,
Regression-tested. OK for trunk?
Not OK, since it misses
integer, parameter :: a((1+1)+1) = 1
as asked by Dominique on IRC. Good catch!
I'll look at this tomorrow.
Regards
thomas
