diff options
author | Harald Anlauf <anlauf@gmx.de> | 2023-01-16 21:41:09 +0100 |
---|---|---|
committer | Harald Anlauf <anlauf@gmx.de> | 2023-02-05 19:52:10 +0100 |
commit | b14dcf0c99fab065e11ec87984475580b649edeb (patch) | |
tree | a7b2214d24710b11acbe4567c69b122dc1560554 /gcc/fortran | |
parent | 841e585ad936624f2d080512a9f6244b49e71969 (diff) | |
download | gcc-b14dcf0c99fab065e11ec87984475580b649edeb.zip gcc-b14dcf0c99fab065e11ec87984475580b649edeb.tar.gz gcc-b14dcf0c99fab065e11ec87984475580b649edeb.tar.bz2 |
Fortran: fix ICE in check_charlen_present [PR108420]
gcc/fortran/ChangeLog:
PR fortran/108420
* iresolve.c (check_charlen_present): Preserve character length if
there is no array constructor.
gcc/testsuite/ChangeLog:
PR fortran/108420
* gfortran.dg/pr108420.f90: New test.
(cherry picked from commit e6669c0a50ed8aee9e5997d61e6271668d149218)
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/iresolve.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 67a1c31..830d2fd 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -94,9 +94,12 @@ check_charlen_present (gfc_expr *source) else if (source->expr_type == EXPR_ARRAY) { gfc_constructor *c = gfc_constructor_first (source->value.constructor); - source->ts.u.cl->length - = gfc_get_int_expr (gfc_charlen_int_kind, NULL, - c->expr->value.character.length); + if (c) + source->ts.u.cl->length + = gfc_get_int_expr (gfc_charlen_int_kind, NULL, + c->expr->value.character.length); + if (source->ts.u.cl->length == NULL) + gfc_internal_error ("check_charlen_present(): length not set"); } } |