Retro68/gcc/libgomp/testsuite/libgomp.fortran/target5.f90

21 lines
361 B
Fortran
Raw Normal View History

2014-09-21 17:33:12 +00:00
! { dg-do compile }
integer :: r
r = 0
call foo (r)
2018-12-28 15:30:48 +00:00
if (r /= 11) STOP 1
2014-09-21 17:33:12 +00:00
contains
subroutine foo (r)
integer :: i, r
!$omp parallel
!$omp single
!$omp target teams distribute parallel do reduction (+: r)
do i = 1, 10
r = r + 1
end do
r = r + 1
!$omp end single
!$omp end parallel
end subroutine
end