Fortran: avoid ICE on invalid array subscript triplets [PR108501]
authorHarald Anlauf <anlauf@gmx.de>
Mon, 23 Jan 2023 20:19:03 +0000 (21:19 +0100)
committerHarald Anlauf <anlauf@gmx.de>
Mon, 23 Jan 2023 20:19:03 +0000 (21:19 +0100)
commit771d793df1622a476e1cf8d05f0a6aee350fa56b
tree68133948b37972c934f82451c2da769a96575bc2
parente6669c0a50ed8aee9e5997d61e6271668d149218
Fortran: avoid ICE on invalid array subscript triplets [PR108501]

gcc/fortran/ChangeLog:

PR fortran/108501
* interface.cc (get_expr_storage_size): Check array subscript triplets
that we actually have integer values before trying to extract with
mpz_get_si.

gcc/testsuite/ChangeLog:

PR fortran/108501
* gfortran.dg/pr108501.f90: New test.
gcc/fortran/interface.cc
gcc/testsuite/gfortran.dg/pr108501.f90 [new file with mode: 0644]