[Bug fortran/123943] [16 Regression] ice in gfc_resolve_forall, at fortran/resolve.cc:12646

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

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

--- Comment #3 from anlauf at gcc dot gnu.org ---
Reduced testcase for the ICE:

program main
  implicit none
  integer :: k,l
  do concurrent(k=1:5)
     if(k==3) then
        do concurrent(l=1:4)
        end do
     end if
  end do
end program