xref: /llvm-project/flang/test/Semantics/OpenMP/critical-hint-clause.f90 (revision 0ee6646d6fb3b0b9a3655b14bd1cbc18a4e99600) 
1! REQUIRES: openmp_runtime
2
3! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags
4! Semantic checks on hint clauses, as they appear on critical construct
5
6program sample
7    use omp_lib
8    integer :: y
9    logical :: z
10    real :: k
11    integer :: p(1)
12
13    !$omp critical (name) hint(1)
14        y = 2
15    !$omp end critical (name)
16
17    !$omp critical (name) hint(2)
18        y = 2
19    !$omp end critical (name)
20
21    !ERROR: Hint clause value is not a valid OpenMP synchronization value
22    !$omp critical (name) hint(3)
23        y = 2
24    !$omp end critical (name)
25
26    !$omp critical (name)  hint(5)
27        y = 2
28    !$omp end critical (name)
29
30    !ERROR: Hint clause value is not a valid OpenMP synchronization value
31    !$omp critical (name) hint(7)
32        y = 2
33    !$omp end critical (name)
34
35    !ERROR: Hint clause must have non-negative constant integer expression
36    !ERROR: Must be a constant value
37    !$omp critical (name) hint(x)
38        y = 2
39    !$omp end critical (name)
40
41    !$omp critical (name) hint(4)
42        y = 2
43    !$omp end critical (name)
44
45    !$omp critical (name) hint(8)
46        y = 2
47    !$omp end critical (name)
48
49    !$omp critical (name) hint(omp_sync_hint_uncontended)
50        y = 2
51    !$omp end critical (name)
52
53    !$omp critical (name) hint(omp_lock_hint_speculative)
54        y = 2
55    !$omp end critical (name)
56
57    !ERROR: Hint clause must have non-negative constant integer expression
58    !ERROR: Must be a constant value
59    !$omp critical (name) hint(omp_sync_hint_uncontended + omp_sync_hint)
60        y = 2
61    !$omp end critical (name)
62
63    !$omp critical (name) hint(omp_sync_hint_nonspeculative)
64        y = 2
65    !$omp end critical (name)
66
67     !$omp critical (name) hint(omp_sync_hint_none)
68        y = 2
69    !$omp end critical (name)
70
71    !$omp critical (name) hint(omp_sync_hint_uncontended + omp_lock_hint_speculative)
72        y = 2
73    !$omp end critical (name)
74
75    !$omp critical (name) hint(omp_lock_hint_nonspeculative + omp_lock_hint_uncontended)
76        y = 2
77    !$omp end critical (name)
78
79    !$omp critical (name) hint(omp_lock_hint_contended + omp_sync_hint_speculative)
80        y = 2
81    !$omp end critical (name)
82
83    !$omp critical (name) hint(omp_lock_hint_contended + omp_sync_hint_nonspeculative)
84        y = 2
85    !$omp end critical (name)
86
87    !ERROR: Hint clause value is not a valid OpenMP synchronization value
88     !$omp critical (name) hint(omp_sync_hint_uncontended + omp_sync_hint_contended)
89        y = 2
90    !$omp end critical (name)
91
92    !ERROR: Hint clause value is not a valid OpenMP synchronization value
93    !$omp critical (name) hint(omp_sync_hint_nonspeculative + omp_lock_hint_speculative)
94        y = 2
95    !$omp end critical (name)
96
97    !ERROR: Hint clause must have non-negative constant integer expression
98    !$omp critical (name) hint(1.0)
99        y = 2
100    !$omp end critical (name)
101
102    !ERROR: Hint clause must have non-negative constant integer expression
103    !ERROR: Operands of + must be numeric; have LOGICAL(4) and INTEGER(4)
104    !$omp critical (name) hint(z + omp_sync_hint_nonspeculative)
105        y = 2
106    !$omp end critical (name)
107
108    !ERROR: Hint clause must have non-negative constant integer expression
109    !ERROR: Must be a constant value
110    !$omp critical (name) hint(k + omp_sync_hint_speculative)
111        y = 2
112    !$omp end critical (name)
113
114    !ERROR: Hint clause must have non-negative constant integer expression
115    !ERROR: Must be a constant value
116    !$omp critical (name) hint(p(1) + omp_sync_hint_uncontended)
117        y = 2
118    !$omp end critical (name)
119end program
120
121