From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2209) id 0189B3858C55; Thu, 13 Oct 2022 20:06:26 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 0189B3858C55 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1665691586; bh=iTPrEnDT+UDtHSBr1PeTT/3nCuBBvwunB62DNcFZtmg=; h=From:To:Subject:Date:From; b=QyU7XpWc024vqMS0lJRiNpjXG6SwbkWQn0NAgi3xDTZxmRcCj0kAq864//HYOzjFZ GJBWgRbbgdacvTj8xieWPWHF/A/Xn+WE1mVz28ATy04fpfGWcZNAoW/KWxZvit9ZR0 IsBiQoqkd/Y5yjZt+ZWO0eFE6O1Vq7HrkP3Kbx2c= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: David Malcolm To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-3285] analyzer: fix ICE introduced in r13-3168 [PR107210] X-Act-Checkin: gcc X-Git-Author: David Malcolm X-Git-Refname: refs/heads/master X-Git-Oldrev: ab8477af9949a7e6fcaf89c5f1dcf32788accf88 X-Git-Newrev: 99da523359e9333555585484eb3b8f854a98f1b4 Message-Id: <20221013200626.0189B3858C55@sourceware.org> Date: Thu, 13 Oct 2022 20:06:26 +0000 (GMT) List-Id: https://gcc.gnu.org/g:99da523359e9333555585484eb3b8f854a98f1b4 commit r13-3285-g99da523359e9333555585484eb3b8f854a98f1b4 Author: David Malcolm Date: Thu Oct 13 16:05:35 2022 -0400 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 Diff: --- gcc/analyzer/svalue.cc | 3 ++- gcc/testsuite/gfortran.dg/analyzer/pr107210.f90 | 16 ++++++++++++++++ 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/gcc/analyzer/svalue.cc b/gcc/analyzer/svalue.cc index a0838c0f588..4b00a81b31d 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 00000000000..6132db48817 --- /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