diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2019-11-27 11:00:50 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2019-11-27 11:00:50 +0100 |
| commit | b7b848f5d7984a9984e0a518b75ff91a0de0cb32 (patch) | |
| tree | 96855a9fa85e06eb3327be7b2fffe6989e3b7409 /gcc/fortran/simplify.c | |
| parent | 90ca6847bbd0c7b2debb5a985d7f49e464f68577 (diff) | |
| download | gcc-b7b848f5d7984a9984e0a518b75ff91a0de0cb32.zip gcc-b7b848f5d7984a9984e0a518b75ff91a0de0cb32.tar.gz gcc-b7b848f5d7984a9984e0a518b75ff91a0de0cb32.tar.bz2 | |
re PR fortran/91944 (ICE in gfc_conv_array_initializer, at fortran/trans-array.c:6156)
PR fortran/91944
* simplify.c (gfc_simplify_spread): Check gfc_init_expr_flag instead
of gfc_current_ns->sym_root->n.sym->attr.flavor == FL_PARAMETER.
* gfortran.dg/spread_size_limit_2.f90: New test.
From-SVN: r278762
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index b02c549..93f3da3 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -7656,7 +7656,7 @@ gfc_simplify_spread (gfc_expr *source, gfc_expr *dim_expr, gfc_expr *ncopies_exp nelem = mpz_get_si (size) * ncopies; if (nelem > flag_max_array_constructor) { - if (gfc_current_ns->sym_root->n.sym->attr.flavor == FL_PARAMETER) + if (gfc_init_expr_flag) { gfc_error ("The number of elements (%d) in the array constructor " "at %L requires an increase of the allowed %d upper " |