openmp-macro-expansion.c 884 Bytes
// 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;
  }
}