[flang-commits] [flang] [Flang][OpenMP] Add Semantic Checks for Atomic Capture Construct (PR #108516)

[Kiran Chandramohan via flang-commits]

https://github.com/kiranchandramohan commented:

Errors are not emitted for the following program. Is that expected?

```
program mn
  type :: tp
    real :: r1
    real :: r2
  end type
  type(tp) :: r
  real :: cr

  integer :: v1(10), ci

  !$omp atomic capture
    cr = r%r1
    r%r2 = r%r2 + 1.0
  !$omp end atomic

  !$omp atomic capture
  ci = v1(2)
  v1(1) = v1(1) + 1
  !$omp end atomic
end
```

https://github.com/llvm/llvm-project/pull/108516