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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check OpenMP declarative directives
!TODO: all internal errors
! enable declare-reduction example after name resolution
! 2.4 requires
subroutine requires_1(a)
real(8), intent(inout) :: a
!$omp requires reverse_offload, unified_shared_memory, atomic_default_mem_order(relaxed)
a = a + 0.01
end subroutine requires_1
subroutine requires_2(a)
real(8), intent(inout) :: a
!$omp requires unified_address
a = a + 0.01
end subroutine requires_2
! 2.8.2 declare-simd
subroutine declare_simd_1(a, b)
real(8), intent(inout) :: a, b
!$omp declare simd(declare_simd_1) aligned(a)
a = 3.14 + b
end subroutine declare_simd_1
module m1
abstract interface
subroutine sub(x,y)
integer, intent(in)::x
integer, intent(in)::y
end subroutine sub
end interface
end module m1
subroutine declare_simd_2
use m1
procedure (sub) sub1
!ERROR: NOTINBRANCH and INBRANCH clauses are mutually exclusive and may not appear on the same DECLARE SIMD directive
!$omp declare simd(sub1) inbranch notinbranch
procedure (sub), pointer::p
p=>sub1
call p(5,10)
end subroutine declare_simd_2
subroutine sub1 (x,y)
integer, intent(in)::x, y
print *, x+y
end subroutine sub1
! 2.10.6 declare-target
! 2.15.2 threadprivate
module m2
contains
subroutine foo
!$omp declare target
!WARNING: The entity with PARAMETER attribute is used in a DECLARE TARGET directive
!WARNING: The entity with PARAMETER attribute is used in a DECLARE TARGET directive
!$omp declare target (foo, N, M)
!ERROR: A variable that appears in a DECLARE TARGET directive must be declared in the scope of a module or have the SAVE attribute, either explicitly or implicitly
!ERROR: A variable that appears in a DECLARE TARGET directive must be declared in the scope of a module or have the SAVE attribute, either explicitly or implicitly
!ERROR: A variable that appears in a DECLARE TARGET directive must be declared in the scope of a module or have the SAVE attribute, either explicitly or implicitly
!$omp declare target to(Q, S) link(R)
!ERROR: MAP clause is not allowed on the DECLARE TARGET directive
!$omp declare target map(from:Q)
integer, parameter :: N=10000, M=1024
integer :: i
real :: Q(N, N), R(N,M), S(M,M)
!ERROR: A variable that appears in a THREADPRIVATE directive must be declared in the scope of a module or have the SAVE attribute, either explicitly or implicitly
!$omp threadprivate(i)
end subroutine foo
end module m2
! 2.16 declare-reduction
! subroutine declare_red_1()
! use omp_lib
! integer :: my_var
! !$omp declare reduction (my_add_red : integer : omp_out = omp_out + omp_in) initializer (omp_priv=0)
! my_var = 0
! !$omp parallel reduction (my_add_red : my_var) num_threads(4)
! my_var = omp_get_thread_num() + 1
! !$omp end parallel
! print *, "sum of thread numbers is ", my_var
! end subroutine declare_red_1
end
|
