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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
module main
use iso_c_binding, only: c_ptr
implicit none
contains
subroutine f1 ()
integer :: a, b, arr(10)
real :: x
complex :: c
character :: ch
logical :: bool
type :: struct
integer :: a
real :: b
end type
type(struct) :: s
type(c_ptr) :: p
interface
subroutine f0 (a, c, bool, s)
import :: struct
integer, intent(in) :: a
complex, intent(out) :: c
logical, intent(inout) :: bool
type(struct) :: s
end subroutine
integer function f2 (arr, x, ch, b)
integer, intent(inout) :: arr(:)
real, intent(in) :: x
character, intent(out) :: ch
real :: b
end function
subroutine f3 (p)
import :: c_ptr
type(c_ptr) :: p
end subroutine
integer function f4 ()
end function
end interface
!$omp dispatch
b = f2(arr, x, ch, s%b)
!$omp dispatch
c = f2(arr(:5), x * 2.4, ch, s%b)
!$omp dispatch
arr(1) = f2(arr, x, ch, s%b)
!$omp dispatch
s%a = f2(arr, x, ch, s%b)
!$omp dispatch
x = f2(arr, x, ch, s%b)
!$omp dispatch
call f0(a, c, bool, s)
!$omp dispatch
call f0(f4(), c, bool, s)
!$omp dispatch nocontext(.TRUE.)
call f0(a, c, bool, s)
!$omp dispatch nocontext(arr(2) < 10)
call f0(a, c, bool, s)
!$omp dispatch novariants(.FALSE.)
call f0(a, c, bool, s)
!$omp dispatch novariants(bool)
call f0(a, c, bool, s)
!$omp dispatch nowait
call f0(a, c, bool, s)
!$omp dispatch device(arr(9))
call f0(a, c, bool, s)
!$omp dispatch device(a + a)
call f0(a, c, bool, s)
!$omp dispatch device(-25373654)
call f0(a, c, bool, s)
!$omp dispatch is_device_ptr(p)
call f3(p)
!$omp dispatch depend(in: a, c, bool) depend(inout: s, arr(:3))
call f0(a, c, bool, s)
end subroutine
end module
|
