diff options
| author | David Malcolm <dmalcolm@redhat.com> | 2022-10-13 16:05:35 -0400 |
|---|---|---|
| committer | David Malcolm <dmalcolm@redhat.com> | 2022-10-13 16:05:35 -0400 |
| commit | 99da523359e9333555585484eb3b8f854a98f1b4 (patch) | |
| tree | de436be57ef7b1dc08b35086f484553cc410b06b | |
| parent | ab8477af9949a7e6fcaf89c5f1dcf32788accf88 (diff) | |
| download | gcc-99da523359e9333555585484eb3b8f854a98f1b4.zip gcc-99da523359e9333555585484eb3b8f854a98f1b4.tar.gz gcc-99da523359e9333555585484eb3b8f854a98f1b4.tar.bz2 | |
analyzer: fix ICE introduced in r13-3168 [PR107210]
gcc/analyzer/ChangeLog:
PR analyzer/107210
* svalue.cc (constant_svalue::maybe_fold_bits_within): Only
attempt to extract individual bits when tree_fits_uhwi_p.
gcc/testsuite/ChangeLog:
PR analyzer/107210
* gfortran.dg/analyzer/pr107210.f90: New test.
Signed-off-by: David Malcolm <dmalcolm@redhat.com>
| -rw-r--r-- | gcc/analyzer/svalue.cc | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/analyzer/pr107210.f90 | 16 |
2 files changed, 18 insertions, 1 deletions
diff --git a/gcc/analyzer/svalue.cc b/gcc/analyzer/svalue.cc index a0838c0..4b00a81 100644 --- a/gcc/analyzer/svalue.cc +++ b/gcc/analyzer/svalue.cc @@ -884,7 +884,8 @@ constant_svalue::maybe_fold_bits_within (tree type, if (bits.m_size_in_bits == 1 && TREE_CODE (m_cst_expr) == INTEGER_CST && type - && INTEGRAL_TYPE_P (type)) + && INTEGRAL_TYPE_P (type) + && tree_fits_uhwi_p (m_cst_expr)) { unsigned HOST_WIDE_INT bit = bits.m_start_bit_offset.to_uhwi (); unsigned HOST_WIDE_INT mask = (1 << bit); diff --git a/gcc/testsuite/gfortran.dg/analyzer/pr107210.f90 b/gcc/testsuite/gfortran.dg/analyzer/pr107210.f90 new file mode 100644 index 0000000..6132db4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/analyzer/pr107210.f90 @@ -0,0 +1,16 @@ +! { dg-additional-options "-O1" } + +subroutine check_int (j) + INTEGER(4) :: i, ia(5), ib(5,4), ip, ipa(:) + target :: ib + POINTER :: ip, ipa + logical :: l(5) + + ipa=>ib(2:3,1) + + l = (/ sizeof(i) == 4, sizeof(ia) == 20, sizeof(ib) == 80, & + sizeof(ip) == 4, sizeof(ipa) == 8 /) + + if (any(.not.l)) STOP 4 + +end subroutine check_int |