clang/test/OpenMP/scan_messages.cpp

   1 // RUN: %clang_cc1 -verify -fopenmp -ferror-limit 150 %s
   2
   3 // RUN: %clang_cc1 -verify -fopenmp-simd -ferror-limit 150 %s
   4
   5 template <class T>
   6 T tmain() {
   7   static T argc;
   8 #pragma omp for
   9   for (int i = 0; i < 10; ++i) {
  10 #pragma omp scan // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
  11     ;
  12   }
  13 #pragma omp for
  14   for (int i = 0; i < 10; ++i) {
  15 #pragma omp scan allocate(argc)  // expected-error {{unexpected OpenMP clause 'allocate' in directive '#pragma omp scan'}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
  16 #pragma omp scan untied  // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp scan'}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
  17 #pragma omp scan unknown // expected-warning {{extra tokens at the end of '#pragma omp scan' are ignored}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
  18   }
  19 #pragma omp for simd reduction(inscan, +: argc)
  20   for (int i = 0; i < 10; ++i)
  21     if (argc)
  22 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  23     if (argc) {
  24 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  25     }
  26 #pragma omp simd reduction(inscan, +: argc)
  27   for (int i = 0; i < 10; ++i)
  28   while (argc)
  29 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  30     while (argc) {
  31 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  32     }
  33 #pragma omp simd reduction(inscan, +: argc)
  34   for (int i = 0; i < 10; ++i)
  35   do
  36 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  37     while (argc)
  38       ;
  39 #pragma omp simd reduction(inscan, +: argc) // expected-error {{the inscan reduction list item must appear as a list item in an 'inclusive' or 'exclusive' clause on an inner 'omp scan' directive}}
  40   for (int i = 0; i < 10; ++i)
  41   do {
  42 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  43   } while (argc);
  44 #pragma omp simd reduction(inscan, +: argc)
  45   for (int i = 0; i < 10; ++i)
  46   switch (argc)
  47 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  48     switch (argc)
  49     case 1:
  50 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  51   switch (argc)
  52   case 1: {
  53 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  54   }
  55 #pragma omp simd reduction(inscan, +: argc) // expected-error {{the inscan reduction list item must appear as a list item in an 'inclusive' or 'exclusive' clause on an inner 'omp scan' directive}}
  56   for (int i = 0; i < 10; ++i)
  57   switch (argc) {
  58 #pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  59   case 1:
  60 #pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  61     break;
  62   default: {
  63 #pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  64   } break;
  65   }
  66 #pragma omp simd reduction(inscan, +: argc)
  67   for (int i = 0; i < 10; ++i)
  68   for (;;)
  69 #pragma omp scan exclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  70     for (;;) {
  71 #pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  72     }
  73 #pragma omp simd reduction(inscan, +: argc)
  74   for (int i = 0; i < 10; ++i) {
  75 label:
  76 #pragma omp scan exclusive(argc)
  77   }
  78 #pragma omp simd reduction(inscan, +: argc)
  79   for (int i = 0; i < 10; ++i) {
  80 #pragma omp scan inclusive(argc) // expected-note {{previous 'scan' directive used here}}
  81 #pragma omp scan inclusive(argc) // expected-error {{exactly one 'scan' directive must appear in the loop body of an enclosing directive}}
  82 label1 : {
  83 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
  84 }}
  85
  86   return T();
  87 }
  88
  89 int main() {
  90   static int argc;
  91 #pragma omp simd reduction(inscan, +: argc)
  92   for (int i = 0; i < 10; ++i) {
  93 #pragma omp scan inclusive(argc) inclusive(argc) // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
  94   ;
  95   }
  96 #pragma omp simd reduction(inscan, +: argc)
  97   for (int i = 0; i < 10; ++i) {
  98 #pragma omp scan exclusive(argc) inclusive(argc) // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
  99   ;
 100   }
 101 #pragma omp simd reduction(inscan, +: argc)
 102   for (int i = 0; i < 10; ++i) {
 103 #pragma omp scan exclusive(argc) exclusive(argc) // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
 104   ;
 105   }
 106 #pragma omp simd reduction(inscan, +: argc) // expected-error {{the inscan reduction list item must appear as a list item in an 'inclusive' or 'exclusive' clause on an inner 'omp scan' directive}}
 107   for (int i = 0; i < 10; ++i) {
 108 #pragma omp scan untied  // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp scan'}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
 109 #pragma omp scan unknown // expected-warning {{extra tokens at the end of '#pragma omp scan' are ignored}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
 110   }
 111 #pragma omp simd reduction(inscan, +: argc)
 112   for (int i = 0; i < 10; ++i)
 113   if (argc)
 114 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 115     if (argc) {
 116 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
 117     }
 118 #pragma omp simd reduction(inscan, +: argc)
 119   for (int i = 0; i < 10; ++i)
 120   while (argc)
 121 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 122     while (argc) {
 123 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
 124     }
 125 #pragma omp simd reduction(inscan, +: argc)
 126   for (int i = 0; i < 10; ++i)
 127   do
 128 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 129     while (argc)
 130       ;
 131 #pragma omp simd reduction(inscan, +: argc)
 132   for (int i = 0; i < 10; ++i)
 133   do {
 134 #pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 135   } while (argc);
 136 #pragma omp simd reduction(inscan, +: argc)
 137   for (int i = 0; i < 10; ++i)
 138   switch (argc)
 139 #pragma omp scan exclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 140     switch (argc)
 141     case 1:
 142 #pragma omp scan exclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
 143   switch (argc)
 144   case 1: {
 145 #pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
 146   }
 147 #pragma omp simd reduction(inscan, +: argc)
 148   for (int i = 0; i < 10; ++i)
 149   switch (argc) {
 150 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 151   case 1:
 152 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 153     break;
 154   default: {
 155 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 156   } break;
 157   }
 158 #pragma omp simd reduction(inscan, +: argc)
 159   for (int i = 0; i < 10; ++i)
 160   for (;;)
 161 #pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 162     for (;;) {
 163 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
 164     }
 165 #pragma omp simd reduction(inscan, +: argc)
 166   for (int i = 0; i < 10; ++i) {
 167 label:
 168 #pragma omp scan inclusive(argc)
 169   }
 170 #pragma omp simd reduction(inscan, +: argc)
 171   for (int i = 0; i < 10; ++i) {
 172 #pragma omp scan inclusive(argc) // expected-note {{previous 'scan' directive used here}}
 173 #pragma omp scan inclusive(argc) // expected-error {{exactly one 'scan' directive must appear in the loop body of an enclosing directive}}
 174 label1 : {
 175 #pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
 176 }
 177 }
 178
 179   return tmain<int>(); // expected-note {{in instantiation of function template specialization 'tmain<int>' requested here}}
 180 }