01e91a2dde
Like 'copy', these also have alternate names, so this implements that as well. Additionally, these have an optional tag of either 'readonly' or 'zero' depending on the clause. Otherwise, this is a pretty rote implementation of the clause, as there aren't any special rules for it.
113 lines
3.9 KiB
C++
113 lines
3.9 KiB
C++
// RUN: %clang_cc1 %s -fopenacc -verify
|
|
|
|
enum SomeE{};
|
|
typedef struct IsComplete {
|
|
struct S { int A; } CompositeMember;
|
|
int ScalarMember;
|
|
float ArrayMember[5];
|
|
SomeE EnumMember;
|
|
char *PointerMember;
|
|
} Complete;
|
|
|
|
void uses(int IntParam, char *PointerParam, float ArrayParam[5], Complete CompositeParam, int &IntParamRef) {
|
|
int LocalInt;
|
|
char *LocalPointer;
|
|
float LocalArray[5];
|
|
// Check Appertainment:
|
|
#pragma acc parallel copyout(LocalInt)
|
|
while(1);
|
|
#pragma acc serial copyout(LocalInt)
|
|
while(1);
|
|
#pragma acc kernels copyout(LocalInt)
|
|
while(1);
|
|
|
|
// Valid cases:
|
|
#pragma acc parallel copyout(LocalInt, LocalPointer, LocalArray)
|
|
while(1);
|
|
#pragma acc parallel copyout(LocalArray[2:1])
|
|
while(1);
|
|
|
|
Complete LocalComposite2;
|
|
#pragma acc parallel copyout(LocalComposite2.ScalarMember, LocalComposite2.ScalarMember)
|
|
while(1);
|
|
|
|
// expected-error@+1{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
#pragma acc parallel copyout(1 + IntParam)
|
|
while(1);
|
|
|
|
// expected-error@+1{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
#pragma acc parallel copyout(+IntParam)
|
|
while(1);
|
|
|
|
// expected-error@+1{{OpenACC sub-array length is unspecified and cannot be inferred because the subscripted value is not an array}}
|
|
#pragma acc parallel copyout(PointerParam[2:])
|
|
while(1);
|
|
|
|
// expected-error@+1{{OpenACC sub-array specified range [2:5] would be out of the range of the subscripted array size of 5}}
|
|
#pragma acc parallel copyout(ArrayParam[2:5])
|
|
while(1);
|
|
|
|
// expected-error@+2{{OpenACC sub-array specified range [2:5] would be out of the range of the subscripted array size of 5}}
|
|
// expected-error@+1{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
#pragma acc parallel copyout((float*)ArrayParam[2:5])
|
|
while(1);
|
|
// expected-error@+1{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
#pragma acc parallel copyout((float)ArrayParam[2])
|
|
while(1);
|
|
}
|
|
|
|
template<typename T, unsigned I, typename V>
|
|
void TemplUses(T t, T (&arrayT)[I], V TemplComp) {
|
|
// expected-error@+1{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
#pragma acc parallel copyout(+t)
|
|
while(true);
|
|
|
|
// NTTP's are only valid if it is a reference to something.
|
|
// expected-error@+2{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
// expected-note@#TEMPL_USES_INST{{in instantiation of}}
|
|
#pragma acc parallel copyout(I)
|
|
while(true);
|
|
|
|
// expected-error@+1{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
#pragma acc parallel copyout(t, I)
|
|
while(true);
|
|
|
|
#pragma acc parallel copyout(arrayT)
|
|
while(true);
|
|
|
|
#pragma acc parallel copyout(TemplComp)
|
|
while(true);
|
|
|
|
#pragma acc parallel copyout(TemplComp.PointerMember[5])
|
|
while(true);
|
|
int *Pointer;
|
|
#pragma acc parallel copyout(Pointer[:I])
|
|
while(true);
|
|
#pragma acc parallel copyout(Pointer[:t])
|
|
while(true);
|
|
// expected-error@+1{{OpenACC sub-array length is unspecified and cannot be inferred because the subscripted value is not an array}}
|
|
#pragma acc parallel copyout(Pointer[1:])
|
|
while(true);
|
|
}
|
|
|
|
template<unsigned I, auto &NTTP_REF>
|
|
void NTTP() {
|
|
// NTTP's are only valid if it is a reference to something.
|
|
// expected-error@+2{{OpenACC variable is not a valid variable name, sub-array, array element, or composite variable member}}
|
|
// expected-note@#NTTP_INST{{in instantiation of}}
|
|
#pragma acc parallel copyout(I)
|
|
while(true);
|
|
|
|
#pragma acc parallel copyout(NTTP_REF)
|
|
while(true);
|
|
}
|
|
|
|
void Inst() {
|
|
static constexpr int NTTP_REFed = 1;
|
|
int i;
|
|
int Arr[5];
|
|
Complete C;
|
|
TemplUses(i, Arr, C); // #TEMPL_USES_INST
|
|
NTTP<5, NTTP_REFed>(); // #NTTP_INST
|
|
}
|