-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathdo_simd_fortran.txt
118 lines (75 loc) · 2.75 KB
/
do_simd_fortran.txt
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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
/*
* Copyright (c) 2018-2020, High Performance Computing Architecture and System
* research laboratory at University of North Carolina at Charlotte (HPCAS@UNCC)
* and Lawrence Livermore National Security, LLC.
*
* SPDX-License-Identifier: (BSD-3-Clause)
*/
//For testing purpose, there are several extra empty lines.
//The final version should only contain necessary information.
//This is not a C/C++ code, so there's no required writing style.
//Only two kinds of special lines will be recognized.
//One is starting with "omp", which is the input.
//The other one is starting with "PASS: ", which is the result for validation.
!$omp do simd private(a,b,c)
PASS: !$omp do simd private (a, b, c)
!$omp do simd firstprivate(a,b,c)
PASS: !$omp do simd firstprivate (a, b, c)
!$omp do simd lastprivate(conditional:a,b,c)
PASS: !$omp do simd lastprivate (conditional: a, b, c)
!$omp do simd linear(a,b,c:2)
PASS: !$omp do simd linear (a, b, c:2)
!$omp do simd reduction(task,max:a,b,c)
PASS: !$omp do simd reduction (task, max : a, b, c)
!$omp do simd schedule(monotonic,simd:runtime,2)
PASS: !$omp do simd schedule (monotonic,simd:runtime, 2)
!$omp do simd collapse(a)
PASS: !$omp do simd collapse (a)
!$omp do simd ordered(a)
PASS: !$omp do simd ordered (a)
!$omp do simd allocate(a,b,c)
PASS: !$omp do simd allocate (a, b, c)
!$omp do simd allocate(omp_allocator_handle_t:a,b,c)
PASS: !$omp do simd allocate (omp_allocator_handle_t: a, b, c)
!$omp do simd allocate(omp_default_mem_alloc:a,b,c)
PASS: !$omp do simd allocate (omp_default_mem_alloc: a, b, c)
!$omp do simd order(concurrent)
PASS: !$omp do simd order (concurrent)
!$omp do simd if(a)
PASS: !$omp do simd if (a)
!$omp do simd if(simd:a)
PASS: !$omp do simd if (simd: a)
!$omp do simd safelen(4)
PASS: !$omp do simd safelen (4)
!$omp do simd simdlen(4)
PASS: !$omp do simd simdlen (4)
!$omp do simd aligned(*a,&b,c:2)
PASS: !$omp do simd aligned (*a, &b, c:2)
!$omp do simd nontemporal(a)
PASS: !$omp do simd nontemporal (a)
!$omp end do simd
PASS: !$omp end do simd
!$omp end do simd nowait
PASS: !$omp end do simd nowait
!$omp do simd safelen(tol)
PASS: !$omp do simd safelen (tol)
!$omp do simd simdlen(tol)
PASS: !$omp do simd simdlen (tol)
!$omp do simd nontemporal(private)
PASS: !$omp do simd nontemporal (private)
// invalid test without paired validation.
!$omp do simd lastprivate(userde:a,b,c)
!$omp do simd collapse
!$omp do simd nowait(dsfasf)
!$omp do simd order
!$omp do simd schedule(use,user:runtime,2)
!$omp do simd schedule(simd,simd:runtime,2)
!$omp do simd nontemporal
!$omp do simd if(parallel:,b,c)
!$omp do simd safelen
!$omp do simd simdlen
!$omp do simd linear
!$omp do simd aligned
!$omp do simd private(conditional:a,b,c)
!$omp do simd nowait
!$omp end do simd order(concurrent)