a2693dc192
According to the OpenMP 6.0 specification, array sections with no length and unknown size are considered assumed-size arrays. As of pull request https://github.com/llvm/llvm-project/pull/148048 these types of array sections are allowed and can be specified in clauses that allow array sections as list items. However, only two clauses explicitly allow array sections that are assumed-size arrays: - 'map' and 'use_device_addr'. The other clauses that accept array sections do not explicitly accept assumed-size arrays: - inclusive, exclusive, has_device_addr, in_reduction, task_reduction, reduction These cases should generate an error. See OpenMP 6.0 specification section 7.4 List Item Privatization, Restrictions, p. 222, L15 Assumed-size arrays must not be privatized For OpenMP 6.0, function getPrivateItem() now checks for array section list items that are assumed-size arrays and generates an error if they are not allowed for the clause. Testing - Updated LIT tests for assumed-size array sections to ensure these clauses generate an error: inclusive, exclusive, has_device_addr, in_reduction, task_reduction, reduction and that this clause is accepted (codegen test): use_device_addr - check-all - OpenMP_VV (sollve_vv)
209 lines
14 KiB
C++
209 lines
14 KiB
C++
// RUN: %clang_cc1 -verify -fopenmp -ferror-limit 150 %s
|
|
|
|
// RUN: %clang_cc1 -verify -fopenmp-simd -ferror-limit 150 %s
|
|
|
|
// RUN: %clang_cc1 -verify -fopenmp -fopenmp-version=60 -ferror-limit 150 %s
|
|
|
|
// RUN: %clang_cc1 -verify -fopenmp-simd -fopenmp-version=60 -ferror-limit 150 %s
|
|
|
|
template <class T>
|
|
T tfoobar(T ub[]) {
|
|
static T argc;
|
|
T *ptr;
|
|
#pragma omp for
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
;
|
|
}
|
|
#pragma omp for
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan allocate(argc) // expected-error {{unexpected OpenMP clause 'allocate' in directive '#pragma omp scan'}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
#pragma omp scan untied // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp scan'}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
#pragma omp scan unknown // expected-warning {{extra tokens at the end of '#pragma omp scan' are ignored}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
}
|
|
#pragma omp for simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
if (argc)
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
if (argc) {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
while (argc)
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
while (argc) {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
do
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
while (argc)
|
|
;
|
|
#pragma omp simd reduction(inscan, +: argc) // expected-error {{the inscan reduction list item must appear as a list item in an 'inclusive' or 'exclusive' clause on an inner 'omp scan' directive}}
|
|
for (int i = 0; i < 10; ++i)
|
|
do {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
} while (argc);
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
switch (argc)
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
switch (argc)
|
|
case 1:
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
switch (argc)
|
|
case 1: {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc) // expected-error {{the inscan reduction list item must appear as a list item in an 'inclusive' or 'exclusive' clause on an inner 'omp scan' directive}}
|
|
for (int i = 0; i < 10; ++i)
|
|
switch (argc) {
|
|
#pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
case 1:
|
|
#pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} \
|
|
expected-error{{'#pragma omp scan' cannot be an immediate substatement}}
|
|
break;
|
|
default: {
|
|
#pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
} break;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
for (;;)
|
|
#pragma omp scan exclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
for (;;) {
|
|
#pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
label:
|
|
#pragma omp scan exclusive(argc) // expected-error{{'#pragma omp scan' cannot be an immediate substatement}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan inclusive(argc) // expected-note {{previous 'scan' directive used here}}
|
|
#pragma omp scan inclusive(argc) // expected-error {{exactly one 'scan' directive must appear in the loop body of an enclosing directive}}
|
|
label1 : {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
}}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan inclusive(ptr[0:], argc) // expected-error {{section length is unspecified and cannot be inferred because subscripted value is not an array}}
|
|
;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan exclusive(argc, ub[:]) // expected-error {{section length is unspecified and cannot be inferred because subscripted value is an array of unknown bound}}
|
|
;
|
|
}
|
|
|
|
return T();
|
|
}
|
|
|
|
int foobar(int ub[]) {
|
|
static int argc;
|
|
int *ptr;
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan inclusive(argc) inclusive(argc) // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan exclusive(argc) inclusive(argc) // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan exclusive(argc) exclusive(argc) // expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc) // expected-error {{the inscan reduction list item must appear as a list item in an 'inclusive' or 'exclusive' clause on an inner 'omp scan' directive}}
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan untied // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp scan'}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
#pragma omp scan unknown // expected-warning {{extra tokens at the end of '#pragma omp scan' are ignored}} expected-error {{exactly one of 'inclusive' or 'exclusive' clauses is expected}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
if (argc)
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
if (argc) {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
while (argc)
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
while (argc) {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
do
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
while (argc)
|
|
;
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
do {
|
|
#pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
} while (argc);
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
switch (argc)
|
|
#pragma omp scan exclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
switch (argc)
|
|
case 1:
|
|
#pragma omp scan exclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
|
|
switch (argc)
|
|
case 1: {
|
|
#pragma omp scan exclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
switch (argc) {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
case 1:
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} \
|
|
expected-error{{'#pragma omp scan' cannot be an immediate substatement}}
|
|
break;
|
|
default: {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
} break;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i)
|
|
for (;;)
|
|
#pragma omp scan inclusive(argc) // expected-error {{'#pragma omp scan' cannot be an immediate substatement}} expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
for (;;) {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}} expected-error {{the list item must appear in 'reduction' clause with the 'inscan' modifier of the parent directive}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
label:
|
|
#pragma omp scan inclusive(argc) // expected-error{{'#pragma omp scan' cannot be an immediate substatement}}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan inclusive(argc) // expected-note {{previous 'scan' directive used here}}
|
|
#pragma omp scan inclusive(argc) // expected-error {{exactly one 'scan' directive must appear in the loop body of an enclosing directive}}
|
|
label1 : {
|
|
#pragma omp scan inclusive(argc) // expected-error {{orphaned 'omp scan' directives are prohibited; perhaps you forget to enclose the directive into a for, simd, for simd, parallel for, or parallel for simd region?}}
|
|
}
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan inclusive(ptr[0:], argc) // expected-error {{section length is unspecified and cannot be inferred because subscripted value is not an array}}
|
|
;
|
|
}
|
|
#pragma omp simd reduction(inscan, +: argc)
|
|
for (int i = 0; i < 10; ++i) {
|
|
#pragma omp scan exclusive(argc, ub[:]) // expected-error {{section length is unspecified and cannot be inferred because subscripted value is an array of unknown bound}}
|
|
;
|
|
}
|
|
|
|
return tfoobar<int>(ub); // expected-note {{in instantiation of function template specialization 'tfoobar<int>' requested here}}
|
|
}
|