[flang-commits] [flang] [flang][OpenMP] Fix copyprivate semantic checks (PR #95799)

[Tom Eccles via flang-commits]

tblah wrote:

A minimised test of ours which failed too (posting in addition in case it helps the investigation):

```
program omp_associate_min
  integer, parameter :: l = 42
  integer :: a(l)
  integer :: i
  a = 1

  !$omp parallel do
  do i = 1,l
    associate (b=>a)
      b(i) = b(i) * 2
    end associate
  enddo
  !$omp end parallel do
end program
```

Thanks for the quick revert and cherry-pick to the release branch.

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