mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-13 03:29:50 +00:00
21 lines
361 B
Fortran
21 lines
361 B
Fortran
! { dg-do compile }
|
|
|
|
integer :: r
|
|
r = 0
|
|
call foo (r)
|
|
if (r /= 11) STOP 1
|
|
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
|