diff options
author | Harald Anlauf <anlauf@gmx.de> | 2023-01-16 21:30:56 +0100 |
---|---|---|
committer | Harald Anlauf <anlauf@gmx.de> | 2023-02-05 19:52:10 +0100 |
commit | 068fce9743ec9f3181c189cb8d03a982ca30eb7e (patch) | |
tree | aadd4affdec24db55138126cf90df8cc0bc9e7fa /gcc/fortran | |
parent | b14dcf0c99fab065e11ec87984475580b649edeb (diff) | |
download | gcc-068fce9743ec9f3181c189cb8d03a982ca30eb7e.zip gcc-068fce9743ec9f3181c189cb8d03a982ca30eb7e.tar.gz gcc-068fce9743ec9f3181c189cb8d03a982ca30eb7e.tar.bz2 |
Fortran: fix ICE in get_expr_storage_size [PR108421]
gcc/fortran/ChangeLog:
PR fortran/108421
* interface.c (get_expr_storage_size): Check that we actually have
an integer value before trying to extract it with mpz_get_si.
gcc/testsuite/ChangeLog:
PR fortran/108421
* gfortran.dg/pr108421.f90: New test.
(cherry picked from commit a75760374ee54768e5fd6a27080698bfbbd041ab)
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 19ba7fd..3fff18b 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2810,7 +2810,8 @@ get_expr_storage_size (gfc_expr *e) if (e->ts.type == BT_CHARACTER) { if (e->ts.u.cl && e->ts.u.cl->length - && e->ts.u.cl->length->expr_type == EXPR_CONSTANT) + && e->ts.u.cl->length->expr_type == EXPR_CONSTANT + && e->ts.u.cl->length->ts.type == BT_INTEGER) strlen = mpz_get_si (e->ts.u.cl->length->value.integer); else if (e->expr_type == EXPR_CONSTANT && (e->ts.u.cl == NULL || e->ts.u.cl->length == NULL)) |