File: openmp-macro-expansion.c

package info (click to toggle)
llvm-toolchain-15 1%3A15.0.6-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 1,554,644 kB
  • sloc: cpp: 5,922,452; ansic: 1,012,136; asm: 674,362; python: 191,568; objc: 73,855; f90: 42,327; lisp: 31,913; pascal: 11,973; javascript: 10,144; sh: 9,421; perl: 7,447; ml: 5,527; awk: 3,523; makefile: 2,520; xml: 885; cs: 573; fortran: 567
file content (31 lines) | stat: -rw-r--r-- 884 bytes parent folder | download | duplicates (35) 
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;
  }
}