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
|
// RUN: %clang_cc1 -fopenmp -E -o - %s 2>&1 | FileCheck %s
// This is to make sure the pragma name is not expanded!
#define omp (0xDEADBEEF)
#define N 2
#define M 1
#define E N>
#define map_to_be_expanded(x) map(tofrom:x)
#define sched_to_be_expanded(x,s) schedule(x,s)
#define reda_to_be_expanded(x) reduction(+:x)
#define redb_to_be_expanded(x,op) reduction(op:x)
void foo(int *a, int *b) {
//CHECK: omp target map(a[0:2]) map(tofrom:b[0:2*1])
#pragma omp target map(a[0:N]) map_to_be_expanded(b[0:2*M])
{
int reda;
int redb;
//CHECK: omp parallel for schedule(static,2> >1) reduction(+:reda) reduction(*:redb)
#pragma omp parallel for sched_to_be_expanded(static, E>1) \
reda_to_be_expanded(reda) redb_to_be_expanded(redb,*)
for (int i = 0; i < N; ++i) {
reda += a[i];
redb += b[i];
}
a[0] = reda;
b[0] = redb;
}
}
|
