42 lines
683 B
Fortran
42 lines
683 B
Fortran
|
module m
|
||
|
|
integer :: a = 1
|
||
|
|
!$omp declare target enter(a)
|
||
|
|
end module m
|
||
|
|
|
||
|
|
module m2
|
||
|
|
contains
|
||
|
|
subroutine bar()
|
||
|
|
use m
|
||
|
|
implicit none
|
||
|
|
!$omp declare target
|
||
|
|
a = a + 5
|
||
|
|
end subroutine bar
|
||
|
|
end module m2
|
||
|
|
|
||
|
|
program p
|
||
|
|
use m
|
||
|
|
use m2
|
||
|
|
implicit none
|
||
|
|
integer :: b, i
|
||
|
|
|
||
|
|
!$omp target parallel do map(always, tofrom: a) firstprivate(a)
|
||
|
|
do i = 1, 1
|
||
|
|
a = 7
|
||
|
|
call bar()
|
||
|
|
if (a /= 7) error stop 1
|
||
|
|
a = a + 8
|
||
|
|
end do
|
||
|
|
if (a /= 6) error stop 2
|
||
|
|
|
||
|
|
b = 3
|
||
|
|
!$omp target parallel do map(always, tofrom: a) firstprivate(b)
|
||
|
|
do i = 1, 1
|
||
|
|
a = 3
|
||
|
|
call bar ()
|
||
|
|
if (a /= 8) error stop 3
|
||
|
|
a = a + b
|
||
|
|
end do
|
||
|
|
if (a /= 11) error stop 4
|
||
|
|
end program p
|
||
|
|
|