[Flang][OpenMP] verification of lowering to FIR failed on omp atomic write with pointer assignment to derived type

[k-arrows]

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

type t
end type

type(t), pointer :: a1, a2

!$omp atomic write
a1 = a2
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/odGoe5Evq ```f90 type t end type

type(t), pointer :: a1, a2

!$omp atomic write
a1 = a2
end

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