[Bug fortran/128476] [OpenMP] Implicit 'private' for loop variables rejects valid, bogus code with 'target teams map(...)'

[burnus at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=128476

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Well, the example was too simplified, try:

implicit none
integer :: i, j

!$omp target teams private(i) map(from: j) defaultmap(none)
  !$omp loop
  do j = 1, 2
      !$omp loop
      do i = 1, 2
      end do
  end do
!$omp end target teams
end



Which also implies that the problem is likely related to having nested '!$omp
loop' - as the error disappears once the inner '!$omp loop' is removed.