remove race condition from 274775
@@ -12,13 +12,11 @@ program test
!$omp target teams distribute map(to:A) map(tofrom:M) reduction(+:M)
do i=1, 10
- N=(0,0)
-!$omp parallel do reduction(+:N)
+!$omp parallel do
do j=1, 10
- N=N+A(j)
+ M=M+A(j)
enddo
!$omp end parallel do
- M=M+N
enddo
!$omp end target teams distribute
