clang/test/OpenMP/target_parallel_for_proc_bind_messages.cpp

   1 // RUN: %clang_cc1 -verify=expected,omp51 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
   2
   3 // RUN: %clang_cc1 -verify=expected,omp51 -fopenmp-simd -ferror-limit 100 -o - %s -Wuninitialized
   4
   5 // RUN: %clang_cc1 -verify=expected,omp50 -fopenmp -fopenmp-version=50 -ferror-limit 100 -o - %s -Wuninitialized
   6
   7 // RUN: %clang_cc1 -verify=expected,omp50 -fopenmp-simd -fopenmp-version=50 -ferror-limit 100 -o - %s -Wuninitialized
   8
   9 void foo();
  10
  11 int main(int argc, char **argv) {
  12   int i;
  13 #pragma omp target parallel for proc_bind // expected-error {{expected '(' after 'proc_bind'}}
  14   for (i = 0; i < argc; ++i)
  15     foo();
  16 #pragma omp target parallel for proc_bind( // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
  17   for (i = 0; i < argc; ++i)
  18     foo();
  19 #pragma omp target parallel for proc_bind() // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}}
  20   for (i = 0; i < argc; ++i)
  21     foo();
  22 #pragma omp target parallel for proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
  23   for (i = 0; i < argc; ++i)
  24     foo();
  25 #pragma omp target parallel for proc_bind(close), proc_bind(spread) // expected-error {{directive '#pragma omp target parallel for' cannot contain more than one 'proc_bind' clause}}
  26   for (i = 0; i < argc; ++i)
  27     foo();
  28 #pragma omp target parallel for proc_bind(x) // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}}
  29   for (i = 0; i < argc; ++i)
  30     foo();
  31
  32 #pragma omp target parallel for proc_bind(master)
  33   for (i = 0; i < argc; ++i)
  34     foo();
  35
  36 #pragma omp parallel proc_bind(close)
  37 #pragma omp target parallel for proc_bind(spread)
  38   for (i = 0; i < argc; ++i)
  39     foo();
  40   return 0;
  41 }