[Bug fortran/113471] [14 regression] wrong array bound check failure on valid code

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113471

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW
                 CC|                            |anlauf at gcc dot gnu.org
   Last reconfirmed|                            |2024-01-18

--- Comment #1 from anlauf at gcc dot gnu.org ---
Interesting.  Reduced testcase:

program pr113471
  implicit none
  type :: t
     integer, dimension(2) :: c1 = 0
  end type t
  integer :: i, ii
  type(t) :: cc(3)
  print *, "size(cc), size (cc(1)%c1) =", size(cc), size (cc(1)%c1)
  do i = 1, size(cc)
     print *, i, ":", cc(i)% c1
     ii = pick (cc(i)% c1)
  end do
contains
  integer function pick (c)
    integer :: c(:)
    pick = 0
  end
end

Likely caused by r14-4039-g1cbf18978aa384.