blob: 53a9682bf96a5fe31faa3775a2604d8221a808f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
! { dg-options "-fopenmp" }
subroutine foo (r)
integer :: i, r
!$omp target
!$omp target teams distribute parallel do reduction (+: r) ! { dg-warning "target construct inside of target region" }
do i = 1, 10
r = r + 1
end do
!$omp end target
end subroutine
|