blob: e662a2bd3b20ac1b82ba228d7a819127894f1ea9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
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
|
