46 lines
916 B
Fortran
46 lines
916 B
Fortran
|
! { dg-do run }
|
||
|
|
common /blk/ q, e
|
||
|
|
integer :: q, r
|
||
|
|
logical :: e
|
||
|
|
!$omp parallel
|
||
|
|
!$omp single
|
||
|
|
call foo (2, 7)
|
||
|
|
r = bar (12, 18)
|
||
|
|
!$omp end single
|
||
|
|
!$omp end parallel
|
||
|
|
if (q .ne. 6 .or. r .ne. 17 .or. e) stop 1
|
||
|
|
contains
|
||
|
|
subroutine foo (a, b)
|
||
|
|
integer, intent (in) :: a, b
|
||
|
|
common /blk/ q, e
|
||
|
|
integer :: q, r, d
|
||
|
|
logical :: e
|
||
|
|
!$omp taskloop lastprivate (q) nogroup
|
||
|
|
do d = a, b, 2
|
||
|
|
q = d
|
||
|
|
if (d < 2 .or. d > 6 .or. iand (d, 1) .ne. 0) then
|
||
|
|
!$omp atomic write
|
||
|
|
e = .true.
|
||
|
|
end if
|
||
|
|
end do
|
||
|
|
end subroutine foo
|
||
|
|
function bar (a, b)
|
||
|
|
integer, intent (in) :: a, b
|
||
|
|
integer :: bar
|
||
|
|
common /blk/ q, e
|
||
|
|
integer :: q, r, d, s
|
||
|
|
logical :: e
|
||
|
|
s = 7
|
||
|
|
!$omp taskloop lastprivate (s)
|
||
|
|
do d = a, b - 1
|
||
|
|
if (d < 12 .or. d > 17) then
|
||
|
|
!$omp atomic write
|
||
|
|
e = .true.
|
||
|
|
end if
|
||
|
|
s = d
|
||
|
|
end do
|
||
|
|
!$omp end taskloop
|
||
|
|
bar = s
|
||
|
|
end function bar
|
||
|
|
end
|