[flang][frontend] Internal compiler error caused by program fragment

[akuhlens]

The following code causes the following assertion violation.

program main
type t
  sequence
  integer :: i = 1       
end type
type (t) :: A
integer :: x
equivalence (A, x)
end

subroutine s()
  type g
    integer::d/1/
  end type
end subroutine

fatal internal error: CHECK(offset_ + elements * stride <= image_.data_.size() || padWithZero_) failed at /proj/build/llvm/Linux_x86_64/flang/lib/Evaluate/initial-image.cpp(104)

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Andre Kuhlenschmidt (akuhlens)

The following code causes the following assertion violation. ```fortran program main type t sequence integer :: i = 1 end type type (t) :: A integer :: x equivalence (A, x) end

subroutine s()
type g
integer::d/1/
end type
end subroutine

fatal internal error: CHECK(offset_ + elements * stride <= image_.data_.size() || padWithZero_) failed at /proj/build/llvm/Linux_x86_64/flang/lib/Evaluate/initial-image.cpp(104)

</details>