9925f15661
[OpenMP] Initial implementation of parse and sema for composite pragma 'distribute parallel for' This patch is an initial implementation for #distribute parallel for. The main differences that affect other pragmas are: The implementation of 'distribute parallel for' requires blocking of the associated loop, where blocks are "distributed" to different teams and iterations within each block are scheduled to parallel threads within each team. To implement blocking, sema creates two additional worksharing directive fields that are used to pass the team assigned block lower and upper bounds through the outlined function resulting from 'parallel'. In this way, scheduling for 'for' to threads can use those bounds. As a consequence of blocking, the stride of 'distribute' is not 1 but it is equal to the blocking size. This is returned by the runtime and sema prepares a DistIncrExpr variable to hold that value. As a consequence of blocking, the global upper bound (EnsureUpperBound) expression of the 'for' is not the original loop upper bound (e.g. in for(i = 0 ; i < N; i++) this is 'N') but it is the team-assigned block upper bound. Sema creates a new expression holding the calculation of the actual upper bound for 'for' as UB = min(UB, PrevUB), where UB is the loop upper bound, and PrevUB is the team-assigned block upper bound. llvm-svn: 273884
397 lines
9.0 KiB
C++
397 lines
9.0 KiB
C++
// RUN: %clang_cc1 -verify -fopenmp -ferror-limit 100 %s
|
|
|
|
|
|
struct S1; // expected-note 2 {{declared here}}
|
|
extern S1 a;
|
|
class S2 {
|
|
mutable int a;
|
|
public:
|
|
S2():a(0) { }
|
|
S2(S2 &s2):a(s2.a) { }
|
|
};
|
|
const S2 b;
|
|
const S2 ba[5];
|
|
class S3 {
|
|
int a;
|
|
public:
|
|
S3():a(0) { }
|
|
S3(S3 &s3):a(s3.a) { }
|
|
};
|
|
const S3 c;
|
|
const S3 ca[5];
|
|
extern const int f;
|
|
class S4 {
|
|
int a;
|
|
S4();
|
|
S4(const S4 &s4);
|
|
public:
|
|
S4(int v):a(v) { }
|
|
};
|
|
class S5 {
|
|
int a;
|
|
S5():a(0) {}
|
|
S5(const S5 &s5):a(s5.a) { }
|
|
public:
|
|
S5(int v):a(v) { }
|
|
};
|
|
|
|
S3 h;
|
|
#pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
|
|
|
|
namespace A {
|
|
double x;
|
|
#pragma omp threadprivate(x) // expected-note 2 {{defined as threadprivate or thread local}}
|
|
}
|
|
namespace B {
|
|
using A::x;
|
|
}
|
|
|
|
template <class T, typename S, int N>
|
|
T tmain(T argc, S **argv) {
|
|
const int d = 5;
|
|
const int da[5] = { 0 };
|
|
S4 e(4);
|
|
S5 g(5);
|
|
int i;
|
|
int &j = i;
|
|
int acc = 0;
|
|
int n = 1000;
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared // expected-error {{expected '(' after 'shared'}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared () // expected-error {{expected expression}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (S1) // expected-error {{'S1' does not refer to a value}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (a, b, c, d, f)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argv[1]) // expected-error {{expected variable name}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(ba)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(ca)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(da)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(e, g)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be shared}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for private(i), shared(i) // expected-error {{private variable cannot be shared}} expected-note {{defined as private}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for firstprivate(i), shared(i) // expected-error {{firstprivate variable cannot be shared}} expected-note {{defined as firstprivate}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for private(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(j)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for firstprivate(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(j)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
return T();
|
|
}
|
|
|
|
|
|
int main(int argc, char **argv) {
|
|
const int d = 5;
|
|
const int da[5] = { 0 };
|
|
S4 e(4);
|
|
S5 g(5);
|
|
int i;
|
|
int &j = i;
|
|
int acc = 0;
|
|
int n = argc;
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared // expected-error {{expected '(' after 'shared'}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared () // expected-error {{expected expression}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argc)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (S1) // expected-error {{'S1' does not refer to a value}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (a, b, c, d, f)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared (argv[1]) // expected-error {{expected variable name}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(ba)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(ca)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(da)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(e, g)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be shared}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for private(i), shared(i) // expected-error {{private variable cannot be shared}} expected-note {{defined as private}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for firstprivate(i), shared(i) // expected-error {{firstprivate variable cannot be shared}} expected-note {{defined as firstprivate}}
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for private(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(j)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for firstprivate(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(i)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
#pragma omp target
|
|
#pragma omp teams
|
|
#pragma omp distribute parallel for shared(j)
|
|
for(int k = 0 ; k < n ; k++) {
|
|
acc++;
|
|
}
|
|
|
|
return tmain<int, char, 1000>(argc, argv); // expected-note {{in instantiation of function template specialization 'tmain<int, char, 1000>' requested here}}
|
|
}
|