From 4101032e5fb6a77b7fdfca9d9920d4b6065e5338 Mon Sep 17 00:00:00 2001 From: Kelvin Li Date: Tue, 10 Jan 2017 05:15:35 +0000 Subject: [PATCH] [OpenMP] Support the 'is_device_ptr' clause with 'target parallel for' pragma This patch is to add support of the 'is_device_ptr' clause with the 'target parallel for' pragma. Differential Revision: https://reviews.llvm.org/D28255 llvm-svn: 291540 --- clang/include/clang/Basic/OpenMPKinds.def | 2 +- clang/lib/Sema/SemaOpenMP.cpp | 6 +- ...t_parallel_for_is_device_ptr_ast_print.cpp | 315 ++++++++++++++++++ ...et_parallel_for_is_device_ptr_messages.cpp | 311 +++++++++++++++++ 4 files changed, 631 insertions(+), 3 deletions(-) create mode 100644 clang/test/OpenMP/target_parallel_for_is_device_ptr_ast_print.cpp create mode 100644 clang/test/OpenMP/target_parallel_for_is_device_ptr_messages.cpp diff --git a/clang/include/clang/Basic/OpenMPKinds.def b/clang/include/clang/Basic/OpenMPKinds.def index d8ba48b53bc3..044e7bddff79 100644 --- a/clang/include/clang/Basic/OpenMPKinds.def +++ b/clang/include/clang/Basic/OpenMPKinds.def @@ -483,7 +483,6 @@ OPENMP_TARGET_PARALLEL_CLAUSE(reduction) OPENMP_TARGET_PARALLEL_CLAUSE(is_device_ptr) // Clauses allowed for OpenMP directive 'target parallel for'. -// TODO: add target clauses 'is_device_ptr' OPENMP_TARGET_PARALLEL_FOR_CLAUSE(if) OPENMP_TARGET_PARALLEL_FOR_CLAUSE(device) OPENMP_TARGET_PARALLEL_FOR_CLAUSE(map) @@ -502,6 +501,7 @@ OPENMP_TARGET_PARALLEL_FOR_CLAUSE(collapse) OPENMP_TARGET_PARALLEL_FOR_CLAUSE(schedule) OPENMP_TARGET_PARALLEL_FOR_CLAUSE(ordered) OPENMP_TARGET_PARALLEL_FOR_CLAUSE(linear) +OPENMP_TARGET_PARALLEL_FOR_CLAUSE(is_device_ptr) // Clauses allowed for OpenMP directive 'target update'. // TODO More clauses for 'target update' directive. diff --git a/clang/lib/Sema/SemaOpenMP.cpp b/clang/lib/Sema/SemaOpenMP.cpp index d2e03f4cfd50..274800ce6f48 100644 --- a/clang/lib/Sema/SemaOpenMP.cpp +++ b/clang/lib/Sema/SemaOpenMP.cpp @@ -7452,7 +7452,8 @@ OMPClause *Sema::ActOnOpenMPPrivateClause(ArrayRef VarList, CurrDir == OMPD_target_teams_distribute || CurrDir == OMPD_target_teams_distribute_parallel_for || CurrDir == OMPD_target_teams_distribute_parallel_for_simd || - CurrDir == OMPD_target_parallel_for_simd) { + CurrDir == OMPD_target_parallel_for_simd || + CurrDir == OMPD_target_parallel_for) { OpenMPClauseKind ConflictKind; if (DSAStack->checkMappableExprComponentListsForDecl( VD, /*CurrentRegionOnly=*/true, @@ -7714,7 +7715,8 @@ OMPClause *Sema::ActOnOpenMPFirstprivateClause(ArrayRef VarList, CurrDir == OMPD_target_teams_distribute || CurrDir == OMPD_target_teams_distribute_parallel_for || CurrDir == OMPD_target_teams_distribute_parallel_for_simd || - CurrDir == OMPD_target_parallel_for_simd) { + CurrDir == OMPD_target_parallel_for_simd || + CurrDir == OMPD_target_parallel_for) { OpenMPClauseKind ConflictKind; if (DSAStack->checkMappableExprComponentListsForDecl( VD, /*CurrentRegionOnly=*/true, diff --git a/clang/test/OpenMP/target_parallel_for_is_device_ptr_ast_print.cpp b/clang/test/OpenMP/target_parallel_for_is_device_ptr_ast_print.cpp new file mode 100644 index 000000000000..eaa0941a388e --- /dev/null +++ b/clang/test/OpenMP/target_parallel_for_is_device_ptr_ast_print.cpp @@ -0,0 +1,315 @@ +// RUN: %clang_cc1 -verify -fopenmp -std=c++11 -ast-print %s | FileCheck %s +// RUN: %clang_cc1 -fopenmp -x c++ -std=c++11 -emit-pch -o %t %s +// RUN: %clang_cc1 -fopenmp -std=c++11 -include-pch %t -fsyntax-only -verify %s -ast-print | FileCheck %s +// expected-no-diagnostics + +#ifndef HEADER +#define HEADER + +void foo() {} + +struct ST { + int *a; +}; +typedef int arr[10]; +typedef ST STarr[10]; +struct SA { + const int da[5] = { 0 }; + ST g[10]; + STarr &rg = g; + int i; + int &j = i; + int *k = &j; + int *&z = k; + int aa[10]; + arr &raa = aa; + void func(int arg) { +#pragma omp target parallel for is_device_ptr(k) + for (int i=0; i<100; i++) foo(); + +#pragma omp target parallel for is_device_ptr(z) + for (int i=0; i<100; i++) foo(); + +#pragma omp target parallel for is_device_ptr(aa) // OK + for (int i=0; i<100; i++) foo(); + +#pragma omp target parallel for is_device_ptr(raa) // OK + for (int i=0; i<100; i++) foo(); + +#pragma omp target parallel for is_device_ptr(g) // OK + for (int i=0; i<100; i++) foo(); + +#pragma omp target parallel for is_device_ptr(rg) // OK + for (int i=0; i<100; i++) foo(); + +#pragma omp target parallel for is_device_ptr(da) // OK + for (int i=0; i<100; i++) foo(); + + return; + } +}; +// CHECK: struct SA +// CHECK-NEXT: const int da[5] = {0}; +// CHECK-NEXT: ST g[10]; +// CHECK-NEXT: STarr &rg = this->g; +// CHECK-NEXT: int i; +// CHECK-NEXT: int &j = this->i; +// CHECK-NEXT: int *k = &this->j; +// CHECK-NEXT: int *&z = this->k; +// CHECK-NEXT: int aa[10]; +// CHECK-NEXT: arr &raa = this->aa; +// CHECK-NEXT: func( +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->k) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->z) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->aa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->raa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->g) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->rg) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(this->da) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +struct SB { + unsigned A; + unsigned B; + float Arr[100]; + float *Ptr; + float *foo() { + return &Arr[0]; + } +}; + +struct SC { + unsigned A : 2; + unsigned B : 3; + unsigned C; + unsigned D; + float Arr[100]; + SB S; + SB ArrS[100]; + SB *PtrS; + SB *&RPtrS; + float *Ptr; + + SC(SB *&_RPtrS) : RPtrS(_RPtrS) {} +}; + +union SD { + unsigned A; + float B; +}; + +struct S1; +extern S1 a; +class S2 { + mutable int a; +public: + S2():a(0) { } + S2(S2 &s2):a(s2.a) { } + static float S2s; + static const float S2sc; +}; +const float S2::S2sc = 0; +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) + +typedef struct { + int a; +} S6; + +template +T tmain(T argc) { + const T da[5] = { 0 }; + S6 h[10]; + auto &rh = h; + T i; + T &j = i; + T *k = &j; + T *&z = k; + T aa[10]; + auto &raa = aa; +#pragma omp target parallel for is_device_ptr(k) + for (int i=0; i<100; i++) foo(); +#pragma omp target parallel for is_device_ptr(z) + for (int i=0; i<100; i++) foo(); +#pragma omp target parallel for is_device_ptr(aa) + for (int i=0; i<100; i++) foo(); +#pragma omp target parallel for is_device_ptr(raa) + for (int i=0; i<100; i++) foo(); +#pragma omp target parallel for is_device_ptr(h) + for (int i=0; i<100; i++) foo(); +#pragma omp target parallel for is_device_ptr(rh) + for (int i=0; i<100; i++) foo(); +#pragma omp target parallel for is_device_ptr(da) + for (int i=0; i<100; i++) foo(); + return 0; +} + +// CHECK: template<> int tmain(int argc) { +// CHECK-NEXT: const int da[5] = {0}; +// CHECK-NEXT: S6 h[10]; +// CHECK-NEXT: auto &rh = h; +// CHECK-NEXT: int i; +// CHECK-NEXT: int &j = i; +// CHECK-NEXT: int *k = &j; +// CHECK-NEXT: int *&z = k; +// CHECK-NEXT: int aa[10]; +// CHECK-NEXT: auto &raa = aa; +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(k) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(z) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(aa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(raa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(h) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(rh) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(da) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +// CHECK: template<> int *tmain(int *argc) { +// CHECK-NEXT: int *const da[5] = {0}; +// CHECK-NEXT: S6 h[10]; +// CHECK-NEXT: auto &rh = h; +// CHECK-NEXT: int *i; +// CHECK-NEXT: int *&j = i; +// CHECK-NEXT: int **k = &j; +// CHECK-NEXT: int **&z = k; +// CHECK-NEXT: int *aa[10]; +// CHECK-NEXT: auto &raa = aa; +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(k) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(z) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(aa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(raa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(h) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(rh) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(da) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +// CHECK-LABEL: int main(int argc, char **argv) { +int main(int argc, char **argv) { + const int da[5] = { 0 }; + S6 h[10]; + auto &rh = h; + int i; + int &j = i; + int *k = &j; + int *&z = k; + int aa[10]; + auto &raa = aa; +// CHECK-NEXT: const int da[5] = {0}; +// CHECK-NEXT: S6 h[10]; +// CHECK-NEXT: auto &rh = h; +// CHECK-NEXT: int i; +// CHECK-NEXT: int &j = i; +// CHECK-NEXT: int *k = &j; +// CHECK-NEXT: int *&z = k; +// CHECK-NEXT: int aa[10]; +// CHECK-NEXT: auto &raa = aa; +#pragma omp target parallel for is_device_ptr(k) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(k) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +#pragma omp target parallel for is_device_ptr(z) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(z) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +#pragma omp target parallel for is_device_ptr(aa) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(aa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +#pragma omp target parallel for is_device_ptr(raa) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(raa) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +#pragma omp target parallel for is_device_ptr(h) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(h) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +#pragma omp target parallel for is_device_ptr(rh) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(rh) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + +#pragma omp target parallel for is_device_ptr(da) + for (int i=0; i<100; i++) foo(); +// CHECK-NEXT: #pragma omp target parallel for is_device_ptr(da) +// CHECK-NEXT: for (int i = 0; i < 100; i++) +// CHECK-NEXT: foo(); + return tmain(argc) + *tmain(&argc); +} + + +#endif diff --git a/clang/test/OpenMP/target_parallel_for_is_device_ptr_messages.cpp b/clang/test/OpenMP/target_parallel_for_is_device_ptr_messages.cpp new file mode 100644 index 000000000000..b3b33bf91ed0 --- /dev/null +++ b/clang/test/OpenMP/target_parallel_for_is_device_ptr_messages.cpp @@ -0,0 +1,311 @@ +// RUN: %clang_cc1 -std=c++11 -verify -fopenmp %s + +struct ST { + int *a; +}; +typedef int arr[10]; +typedef ST STarr[10]; +typedef struct { + int a; +} S; +struct SA { + const int d = 5; + const int da[5] = { 0 }; + ST e; + ST g[10]; + STarr &rg = g; + int i; + int &j = i; + int *k = &j; + int *&z = k; + int aa[10]; + arr &raa = aa; + S *ps; + void func(int arg) { +#pragma omp target parallel for is_device_ptr // expected-error {{expected '(' after 'is_device_ptr'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr() // expected-error {{expected expression}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(alloc) // expected-error {{use of undeclared identifier 'alloc'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(arg // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(i) // expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(j) // expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(k) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(z) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(aa) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(raa) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(e) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(g) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(rg) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(k,i,j) // expected-error2 {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(d) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(da) // OK + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for map(ps) is_device_ptr(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(ps) map(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for map(ps->a) is_device_ptr(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for is_device_ptr(ps) map(ps->a) // expected-error{{pointer cannot be mapped along with a section derived from itself}} expected-note{{used here}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for firstprivate(ps) is_device_ptr(ps) // expected-error{{firstprivate variable cannot be in a is_device_ptr clause in '#pragma omp target parallel for' directive}} expected-note{{defined as firstprivate}} + for (int ii=0; ii<10; ii++) + ; +#pragma omp target parallel for private(ps) is_device_ptr(ps) // expected-error{{private variable cannot be in a is_device_ptr clause in '#pragma omp target parallel for' directive}} expected-note{{defined as private}} + for (int ii=0; ii<10; ii++) + ; + + return; + } +}; +struct SB { + unsigned A; + unsigned B; + float Arr[100]; + float *Ptr; + float *foo() { + return &Arr[0]; + } +}; + +struct SC { + unsigned A : 2; + unsigned B : 3; + unsigned C; + unsigned D; + float Arr[100]; + SB S; + SB ArrS[100]; + SB *PtrS; + SB *&RPtrS; + float *Ptr; + + SC(SB *&_RPtrS) : RPtrS(_RPtrS) {} +}; + +union SD { + unsigned A; + float B; +}; + +struct S1; +extern S1 a; +class S2 { + mutable int a; +public: + S2():a(0) { } + S2(S2 &s2):a(s2.a) { } + static float S2s; + static const float S2sc; +}; +const float S2::S2sc = 0; +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) + +typedef struct { + int a; +} S6; + +template +T tmain(T argc) { + const T d = 5; + const T da[5] = { 0 }; + S4 e(4); + S5 g(5); + S6 h[10]; + auto &rh = h; + T i; + T &j = i; + T *k = &j; + T *&z = k; + T aa[10]; + auto &raa = aa; +#pragma omp target parallel for is_device_ptr // expected-error {{expected '(' after 'is_device_ptr'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr() // expected-error {{expected expression}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(alloc) // expected-error {{use of undeclared identifier 'alloc'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(argc // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(i) // expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(j) // expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(k) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(z) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(aa) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(raa) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(e) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(g) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(h) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(rh) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(k,i,j) // expected-error2 {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(d) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(da) // OK + for (int kk=0; kk<20; kk++) + ; + return 0; +} + +int main(int argc, char **argv) { + const int d = 5; + const int da[5] = { 0 }; + S4 e(4); + S5 g(5); + S6 h[10]; + auto &rh = h; + int i; + int &j = i; + int *k = &j; + int *&z = k; + int aa[10]; + auto &raa = aa; +#pragma omp target parallel for is_device_ptr // expected-error {{expected '(' after 'is_device_ptr'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr() // expected-error {{expected expression}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(alloc) // expected-error {{use of undeclared identifier 'alloc'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(argc // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(i) // expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(j) // expected-error {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(k) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(z) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(aa) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(raa) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(e) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(g) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(h) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(rh) // OK + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(k,i,j) // expected-error2 {{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(d) // expected-error{{expected pointer, array, reference to pointer, or reference to array in 'is_device_ptr clause'}} + for (int kk=0; kk<20; kk++) + ; +#pragma omp target parallel for is_device_ptr(da) // OK + for (int kk=0; kk<20; kk++) + ; + return tmain(argc); // expected-note {{in instantiation of function template specialization 'tmain' requested here}} +}