[Flang][OpenMP] verification of lowering to FIR failed on omp atomic capture with derived type array element

[k-arrows]

Reproducer:
https://godbolt.org/z/sWPvEbWqW

type t1
  integer :: i(1)
end type

type(t1) :: t2
t2%i=0
j=1

!$omp atomic capture
t2%i(j*1) = t2%i(1) + 1
t2%i(1) = t2%i(j*1)
!$omp end atomic
end

The expected behavior is that the code either compiles successfully or produces an appropriate and informative diagnostic.

[llvmbot]

@llvm/issue-subscribers-flang-ir

Author: None (k-arrows)

Reproducer: https://godbolt.org/z/sWPvEbWqW ```f90 type t1 integer :: i(1) end type

type(t1) :: t2
t2%i=0
j=1

!$omp atomic capture
t2%i(j1) = t2%i(1) + 1
t2%i(1) = t2%i(j1)
!$omp end atomic
end

The expected behavior is that the code either compiles successfully or produces an appropriate and informative diagnostic.
</details>