https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95109
--- Comment #6 from G. Steinmetz <gs...@t-online.de> ---
And reducing especially the directives :
$ cat z1.f90
program p
!$omp target data map(tofrom:n,r)
!$omp target teams reduction(+:r)
!$omp distribute parallel do simd collapse(2)
do i = 1, 10
do j = 1, 10
end do
end do
!$omp end target teams
!$omp end target data
end
