1 // RUN: %clang_cc1 -verify -fopenmp %s 2 // RUN: %clang_cc1 -verify -fopenmp -std=c++98 %s 3 // RUN: %clang_cc1 -verify -fopenmp -std=c++11 %s 4 5 void foo() { 6 } 7 8 #if __cplusplus >= 201103L 9 // expected-note@+2 4 {{declared here}} 10 #endif 11 bool foobool(int argc) { 12 return argc; 13 } 14 15 struct S1; // expected-note {{declared here}} 16 17 template <class T, typename S, int N, int ST> // expected-note {{declared here}} 18 T tmain(T argc, S **argv) { //expected-note 2 {{declared here}} 19 #pragma omp target 20 #pragma omp teams 21 #pragma omp distribute parallel for collapse // expected-error {{expected '(' after 'collapse'}} 22 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 23 #pragma omp target 24 #pragma omp teams 25 #pragma omp distribute parallel for collapse ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 26 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 27 #pragma omp target 28 #pragma omp teams 29 #pragma omp distribute parallel for collapse () // expected-error {{expected expression}} 30 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 31 #pragma omp target 32 #pragma omp teams 33 // expected-error@+3 {{expected ')'}} expected-note@+3 {{to match this '('}} 34 // expected-error@+2 2 {{expression is not an integral constant expression}} 35 // expected-note@+1 2 {{read of non-const variable 'argc' is not allowed in a constant expression}} 36 #pragma omp distribute parallel for collapse (argc 37 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 38 #pragma omp target 39 #pragma omp teams 40 // expected-error@+1 2 {{argument to 'collapse' clause must be a strictly positive integer value}} 41 #pragma omp distribute parallel for collapse (ST // expected-error {{expected ')'}} expected-note {{to match this '('}} 42 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 43 #pragma omp target 44 #pragma omp teams 45 #pragma omp distribute parallel for collapse (1)) // expected-warning {{extra tokens at the end of '#pragma omp distribute parallel for' are ignored}} 46 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 47 #pragma omp target 48 #pragma omp teams 49 #pragma omp distribute parallel for collapse ((ST > 0) ? 1 + ST : 2) // expected-note 2 {{as specified in 'collapse' clause}} 50 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; // expected-error 2 {{expected 2 for loops after '#pragma omp distribute parallel for', but found only 1}} 51 // expected-error@+8 2 {{directive '#pragma omp distribute parallel for' cannot contain more than one 'collapse' clause}} 52 // expected-error@+7 2 {{argument to 'collapse' clause must be a strictly positive integer value}} 53 // expected-error@+6 2 {{expression is not an integral constant expression}} 54 #if __cplusplus >= 201103L 55 // expected-note@+4 2 {{non-constexpr function 'foobool' cannot be used in a constant expression}} 56 #endif 57 #pragma omp target 58 #pragma omp teams 59 #pragma omp distribute parallel for collapse (foobool(argc)), collapse (true), collapse (-5) 60 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 61 #pragma omp target 62 #pragma omp teams 63 #pragma omp distribute parallel for collapse (S) // expected-error {{'S' does not refer to a value}} 64 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 65 #if __cplusplus <= 199711L 66 // expected-error@+6 2 {{expression is not an integral constant expression}} 67 #else 68 // expected-error@+4 2 {{integral constant expression must have integral or unscoped enumeration type, not 'char *'}} 69 #endif 70 #pragma omp target 71 #pragma omp teams 72 #pragma omp distribute parallel for collapse (argv[1]=2) // expected-error {{expected ')'}} expected-note {{to match this '('}} 73 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 74 #pragma omp target 75 #pragma omp teams 76 #pragma omp distribute parallel for collapse (1) 77 for (int i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 78 #pragma omp target 79 #pragma omp teams 80 #pragma omp distribute parallel for collapse (N) // expected-error {{argument to 'collapse' clause must be a strictly positive integer value}} 81 for (T i = ST; i < N; i++) argv[0][i] = argv[0][i] - argv[0][i-ST]; 82 #pragma omp target 83 #pragma omp teams 84 #pragma omp distribute parallel for collapse (2) // expected-note {{as specified in 'collapse' clause}} 85 foo(); // expected-error {{expected 2 for loops after '#pragma omp distribute parallel for'}} 86 return argc; 87 } 88 89 int main(int argc, char **argv) { 90 #pragma omp target 91 #pragma omp teams 92 #pragma omp distribute parallel for collapse // expected-error {{expected '(' after 'collapse'}} 93 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 94 #pragma omp target 95 #pragma omp teams 96 #pragma omp distribute parallel for collapse ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 97 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 98 #pragma omp target 99 #pragma omp teams 100 #pragma omp distribute parallel for collapse () // expected-error {{expected expression}} 101 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 102 #pragma omp target 103 #pragma omp teams 104 #pragma omp distribute parallel for collapse (4 // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-note {{as specified in 'collapse' clause}} 105 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; // expected-error {{expected 4 for loops after '#pragma omp distribute parallel for', but found only 1}} 106 #pragma omp target 107 #pragma omp teams 108 #pragma omp distribute parallel for collapse (2+2)) // expected-warning {{extra tokens at the end of '#pragma omp distribute parallel for' are ignored}} expected-note {{as specified in 'collapse' clause}} 109 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; // expected-error {{expected 4 for loops after '#pragma omp distribute parallel for', but found only 1}} 110 // expected-error@+6 {{expression is not an integral constant expression}} 111 #if __cplusplus >= 201103L 112 // expected-note@+4 {{non-constexpr function 'foobool' cannot be used in a constant expression}} 113 #endif 114 #pragma omp target 115 #pragma omp teams 116 #pragma omp distribute parallel for collapse (foobool(1) > 0 ? 1 : 2) 117 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 118 // expected-error@+8 {{expression is not an integral constant expression}} 119 #if __cplusplus >= 201103L 120 // expected-note@+6{{non-constexpr function 'foobool' cannot be used in a constant expression}} 121 #endif 122 // expected-error@+4 2 {{directive '#pragma omp distribute parallel for' cannot contain more than one 'collapse' clause}} 123 // expected-error@+3 2 {{argument to 'collapse' clause must be a strictly positive integer value}} 124 #pragma omp target 125 #pragma omp teams 126 #pragma omp distribute parallel for collapse (foobool(argc)), collapse (true), collapse (-5) 127 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 128 #pragma omp target 129 #pragma omp teams 130 #pragma omp distribute parallel for collapse (S1) // expected-error {{'S1' does not refer to a value}} 131 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 132 #if __cplusplus <= 199711L 133 // expected-error@+6 {{expression is not an integral constant expression}} 134 #else 135 // expected-error@+4 {{integral constant expression must have integral or unscoped enumeration type, not 'char *'}} 136 #endif 137 #pragma omp target 138 #pragma omp teams 139 #pragma omp distribute parallel for collapse (argv[1]=2) // expected-error {{expected ')'}} expected-note {{to match this '('}} 140 for (int i = 4; i < 12; i++) argv[0][i] = argv[0][i] - argv[0][i-4]; 141 // expected-error@+5 {{statement after '#pragma omp distribute parallel for' must be a for loop}} 142 // expected-note@+3 {{in instantiation of function template specialization 'tmain<int, char, -1, -2>' requested here}} 143 #pragma omp target 144 #pragma omp teams 145 #pragma omp distribute parallel for collapse(collapse(tmain<int, char, -1, -2>(argc, argv) // expected-error 2 {{expected ')'}} expected-note 2 {{to match this '('}} 146 foo(); 147 #pragma omp target 148 #pragma omp teams 149 #pragma omp distribute parallel for collapse (2) // expected-note {{as specified in 'collapse' clause}} 150 foo(); // expected-error {{expected 2 for loops after '#pragma omp distribute parallel for'}} 151 // expected-note@+1 {{in instantiation of function template specialization 'tmain<int, char, 1, 0>' requested here}} 152 return tmain<int, char, 1, 0>(argc, argv); 153 } 154 155
