From 3b54d86f4f0bedfffb6305b6f12283f9c62682db Mon Sep 17 00:00:00 2001 From: Alexey Bataev Date: Fri, 27 Jun 2014 10:37:06 +0000 Subject: [OPENMP] Parsing and sema analysis for 'copyprivate' clause. git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@211886 91177308-0d34-0410-b5e6-96231b3b80d8 --- test/OpenMP/single_ast_print.cpp | 16 +-- test/OpenMP/single_copyprivate_messages.cpp | 157 ++++++++++++++++++++++++++++ 2 files changed, 165 insertions(+), 8 deletions(-) create mode 100644 test/OpenMP/single_copyprivate_messages.cpp (limited to 'test') diff --git a/test/OpenMP/single_ast_print.cpp b/test/OpenMP/single_ast_print.cpp index eaae114960..65a007e271 100644 --- a/test/OpenMP/single_ast_print.cpp +++ b/test/OpenMP/single_ast_print.cpp @@ -13,11 +13,11 @@ T tmain(T argc) { T b = argc, c, d, e, f, g; static T a; // CHECK: static T a; -#pragma omp parallel -#pragma omp single private(argc, b), firstprivate(c, d), nowait +#pragma omp parallel private(g) +#pragma omp single private(argc, b), firstprivate(c, d), nowait copyprivate(g) foo(); - // CHECK-NEXT: #pragma omp parallel - // CHECK-NEXT: #pragma omp single private(argc,b) firstprivate(c,d) nowait + // CHECK-NEXT: #pragma omp parallel private(g) + // CHECK-NEXT: #pragma omp single private(argc,b) firstprivate(c,d) nowait copyprivate(g) // CHECK-NEXT: foo(); return T(); } @@ -26,11 +26,11 @@ int main(int argc, char **argv) { int b = argc, c, d, e, f, g; static int a; // CHECK: static int a; -#pragma omp parallel -#pragma omp single private(argc, b), firstprivate(argv, c), nowait +#pragma omp parallel private(g) +#pragma omp single private(argc, b), firstprivate(argv, c), nowait copyprivate(g) foo(); - // CHECK-NEXT: #pragma omp parallel - // CHECK-NEXT: #pragma omp single private(argc,b) firstprivate(argv,c) nowait + // CHECK-NEXT: #pragma omp parallel private(g) + // CHECK-NEXT: #pragma omp single private(argc,b) firstprivate(argv,c) nowait copyprivate(g) // CHECK-NEXT: foo(); return (tmain(argc) + tmain(argv[0][0])); } diff --git a/test/OpenMP/single_copyprivate_messages.cpp b/test/OpenMP/single_copyprivate_messages.cpp new file mode 100644 index 0000000000..f07ab12bfb --- /dev/null +++ b/test/OpenMP/single_copyprivate_messages.cpp @@ -0,0 +1,157 @@ +// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s + +void foo() { +} + +struct S1; // expected-note 2 {{declared here}} +class S2 { + mutable int a; + +public: + S2() : a(0) {} + S2 &operator=(S2 &s2) { return *this; } +}; +class S3 { + int a; + +public: + S3() : a(0) {} + S3 &operator=(S3 &s3) { return *this; } +}; +class S4 { // expected-note 2 {{'S4' declared here}} + int a; + S4(); + S4 &operator=(const S4 &s4); + +public: + S4(int v) : a(v) {} +}; +class S5 { // expected-note 2 {{'S5' declared here}} + int a; + S5() : a(0) {} + S5 &operator=(const S5 &s5) { return *this; } + +public: + S5(int v) : a(v) {} +}; + +S2 k; +S3 h; +S4 l(3); // expected-note 2 {{'l' defined here}} +S5 m(4); // expected-note 2 {{'m' defined here}} +#pragma omp threadprivate(h, k, l, m) + +template +T tmain(T argc, C **argv) { + T i; +#pragma omp parallel +#pragma omp single copyprivate // expected-error {{expected '(' after 'copyprivate'}} +#pragma omp parallel +#pragma omp single copyprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} +#pragma omp parallel +#pragma omp single copyprivate() // expected-error {{expected expression}} +#pragma omp parallel +#pragma omp single copyprivate(k // expected-error {{expected ')'}} expected-note {{to match this '('}} +#pragma omp parallel +#pragma omp single copyprivate(h, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} +#pragma omp parallel +#pragma omp single copyprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}} +#pragma omp parallel +#pragma omp single copyprivate(l) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}} +#pragma omp parallel +#pragma omp single copyprivate(S1) // expected-error {{'S1' does not refer to a value}} +#pragma omp parallel +#pragma omp single copyprivate(argv[1]) // expected-error {{expected variable name}} +#pragma omp parallel // expected-note {{implicitly determined as shared}} +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} +#pragma omp parallel +#pragma omp single copyprivate(m) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}} + foo(); +#pragma omp parallel private(i) + { +#pragma omp single copyprivate(i) + foo(); + } +#pragma omp parallel shared(i) // expected-note {{defined as shared}} + { +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} + foo(); + } +#pragma omp parallel private(i) +#pragma omp parallel default(shared) // expected-note {{implicitly determined as shared}} + { +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} + foo(); + } +#pragma omp parallel private(i) +#pragma omp parallel // expected-note {{implicitly determined as shared}} + { +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} + foo(); + } +#pragma omp parallel +#pragma omp single private(i) copyprivate(i) // expected-error {{private variable cannot be copyprivate}} expected-note {{defined as private}} + foo(); +#pragma omp parallel +#pragma omp single firstprivate(i) copyprivate(i) // expected-error {{firstprivate variable cannot be copyprivate}} expected-note {{defined as firstprivate}} + foo(); + + return T(); +} + +int main(int argc, char **argv) { + int i; +#pragma omp parallel +#pragma omp single copyprivate // expected-error {{expected '(' after 'copyprivate'}} +#pragma omp parallel +#pragma omp single copyprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} +#pragma omp parallel +#pragma omp single copyprivate() // expected-error {{expected expression}} +#pragma omp parallel +#pragma omp single copyprivate(k // expected-error {{expected ')'}} expected-note {{to match this '('}} +#pragma omp parallel +#pragma omp single copyprivate(h, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} +#pragma omp parallel +#pragma omp single copyprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}} +#pragma omp parallel +#pragma omp single copyprivate(l) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}} +#pragma omp parallel +#pragma omp single copyprivate(S1) // expected-error {{'S1' does not refer to a value}} +#pragma omp parallel +#pragma omp single copyprivate(argv[1]) // expected-error {{expected variable name}} +#pragma omp parallel // expected-note {{implicitly determined as shared}} +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} +#pragma omp parallel +#pragma omp single copyprivate(m) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}} + foo(); +#pragma omp parallel private(i) + { +#pragma omp single copyprivate(i) + foo(); + } +#pragma omp parallel shared(i) // expected-note {{defined as shared}} + { +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} + foo(); + } +#pragma omp parallel private(i) +#pragma omp parallel default(shared) // expected-note {{implicitly determined as shared}} + { +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} + foo(); + } +#pragma omp parallel private(i) +#pragma omp parallel // expected-note {{implicitly determined as shared}} + { +#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}} + foo(); + } +#pragma omp parallel +#pragma omp single private(i) copyprivate(i) // expected-error {{private variable cannot be copyprivate}} expected-note {{defined as private}} + foo(); +#pragma omp parallel +#pragma omp single firstprivate(i) copyprivate(i) // expected-error {{firstprivate variable cannot be copyprivate}} expected-note {{defined as firstprivate}} + foo(); + + return tmain(argc, argv); // expected-note {{in instantiation of function template specialization 'tmain' requested here}} +} -- cgit v1.2.3