[Flang][OpenMP] verification of lowering to FIR failed with "'fir.store' op store value type must match memory reference type"

[k-arrows]

Reproducible on Godbolt:
https://godbolt.org/z/j6o13x97x

Reproducer:

integer, pointer :: a
integer :: arr(20,10)
integer :: i

!$omp simd lastprivate(i)
do a = 1, 10
  do i = a, 20
    arr(i, a) = i + a
  end do
end do

end

Compilation error:

$ flang-new -fopenmp test.f90
flang-20: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
warning: loc("/tmp/test.f90":1:1): OpenMP loop iteration variable cannot have more than 64 bits size and will be narrowed into 64 bits.
warning: loc("/tmp/test.f90":1:1): OpenMP loop iteration variable cannot have more than 64 bits size and will be narrowed into 64 bits.
error: loc("/tmp/test.f90":5:7): 'fir.store' op store value type must match memory reference type
error: verification of lowering to FIR failed

[llvmbot]

@llvm/issue-subscribers-flang-ir

Author: None (k-arrows)

Reproducible on Godbolt: https://godbolt.org/z/j6o13x97x

Reproducer:

integer, pointer :: a
integer :: arr(20,10)
integer :: i

!$omp simd lastprivate(i)
do a = 1, 10
  do i = a, 20
    arr(i, a) = i + a
  end do
end do

end

Compilation error:

$ flang-new -fopenmp test.f90
flang-20: warning: OpenMP support in flang is still experimental [-Wexperimental-option]
warning: loc("/tmp/test.f90":1:1): OpenMP loop iteration variable cannot have more than 64 bits size and will be narrowed into 64 bits.
warning: loc("/tmp/test.f90":1:1): OpenMP loop iteration variable cannot have more than 64 bits size and will be narrowed into 64 bits.
error: loc("/tmp/test.f90":5:7): 'fir.store' op store value type must match memory reference type
error: verification of lowering to FIR failed