diff options
author | Harald Anlauf <anlauf@gmx.de> | 2022-07-14 22:24:55 +0200 |
---|---|---|
committer | Harald Anlauf <anlauf@gmx.de> | 2023-02-05 19:52:10 +0100 |
commit | b523b58690c84b04cc9695d2d652611beb6f28ca (patch) | |
tree | 3c0d170c82cc56b3d37fa98c48d9fa936b6524c7 /gcc/fortran | |
parent | d4bb7751af090736fb4a3bd7278d7094f35e02e4 (diff) | |
download | gcc-b523b58690c84b04cc9695d2d652611beb6f28ca.zip gcc-b523b58690c84b04cc9695d2d652611beb6f28ca.tar.gz gcc-b523b58690c84b04cc9695d2d652611beb6f28ca.tar.bz2 |
Fortran: error recovery for bad initializers of implied-shape arrays [PR106209]
gcc/fortran/ChangeLog:
PR fortran/106209
* decl.c (add_init_expr_to_sym): Handle bad initializers for
implied-shape arrays.
gcc/testsuite/ChangeLog:
PR fortran/106209
* gfortran.dg/pr106209.f90: New test.
Co-authored-by: Steven G. Kargl <kargl@gcc.gnu.org>
(cherry picked from commit 748f8a8b145dde59c7b63aa68b5a59515b7efc49)
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/decl.c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index e7b745b..8ddcbd7 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2047,10 +2047,21 @@ add_init_expr_to_sym (const char *name, gfc_expr **initp, locus *var_locus) /* The shape may be NULL for EXPR_ARRAY, set it. */ if (init->shape == NULL) { - gcc_assert (init->expr_type == EXPR_ARRAY); + if (init->expr_type != EXPR_ARRAY) + { + gfc_error ("Bad shape of initializer at %L", &init->where); + return false; + } + init->shape = gfc_get_shape (1); if (!gfc_array_size (init, &init->shape[0])) - gfc_internal_error ("gfc_array_size failed"); + { + gfc_error ("Cannot determine shape of initializer at %L", + &init->where); + free (init->shape); + init->shape = NULL; + return false; + } } for (dim = 0; dim < sym->as->rank; ++dim) |