[PATCH] D96686: [Flang][OpenMP 4.5] Add semantic check for OpenMP Do Loop Constructs for Threadprivate

[Yashaswini Hegde via Phabricator via llvm-commits]

yhegde added a comment.

It works for the following case.

module tp

  integer i
  !$omp threadprivate(i)

end module tp

module usetp

  use tp

end module usetp

program main

  use usetp

!$omp  do
do i = 1, 10

  do j = 1, 10
    print *, "Hello"
  end do

end do
!$omp end do
end program

Error msg
./module.f90:14:4: error: Loop iteration variable i is not allowed in THREADPRIVATE.

  do i = 1, 10
     ^


Repository:
  rG LLVM Github Monorepo

CHANGES SINCE LAST ACTION
  https://reviews.llvm.org/D96686/new/

https://reviews.llvm.org/D96686