db5b398c91
The variable-category 'allocatable' is explicitly noted as applying only
to Fortran. If specified in C/C++ it should generate an error. NOTE:
Issue will be filed against OpenMP 6.0 specification that restriction is
missing from 'default' clause section.
From the OpenMP 6.0 specification:
Section 7.5.1 default Clause
Semantics, under Fortran only, L18-19, pg. 223
The allocatable variable-category specifies variables with the
ALLOCATABLE
attribute.
Section 7.9.9 defaultmap Clause
Semantics, under Fortran only, L9-10, pg. 292
The allocatable variable-category specifies variables with the
ALLOCATABLE
attribute.
Restrictions, C/C++
L1, pg. 293
The specified variable-category must not be allocatable.
82 lines
3.9 KiB
C++
82 lines
3.9 KiB
C++
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp-version=45 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp-version=50 -fopenmp-simd -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp-version=50 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp-version=40 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify -fopenmp-version=31 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify -fopenmp-version=30 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp -DOMP51 -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp-simd -DOMP51 -ferror-limit 100 -o - %s -Wuninitialized
|
|
// RUN: %clang_cc1 -verify=expected,ge40 -fopenmp-version=60 -fopenmp -DOMP60 -ferror-limit 100 -o - %s -Wuninitialized
|
|
|
|
void foo();
|
|
|
|
namespace {
|
|
static int y = 0;
|
|
}
|
|
static int x = 0;
|
|
|
|
int main(int argc, char **argv) {
|
|
const int c = 0;
|
|
|
|
#pragma omp parallel default // expected-error {{expected '(' after 'default'}}
|
|
#pragma omp parallel default( // expected-error {{expected 'none', 'shared', 'private' or 'firstprivate' in OpenMP clause 'default'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
#pragma omp parallel default() // expected-error {{expected 'none', 'shared', 'private' or 'firstprivate' in OpenMP clause 'default'}}
|
|
#pragma omp parallel default(none // expected-error {{expected ')'}} expected-note {{to match this '('}}
|
|
#pragma omp parallel default(shared), default(shared) // expected-error {{directive '#pragma omp parallel' cannot contain more than one 'default' clause}}
|
|
foo();
|
|
|
|
#pragma omp parallel default(none) // expected-note {{explicit data sharing attribute requested here}}
|
|
++argc; // expected-error {{variable 'argc' must have explicitly specified data sharing attributes}}
|
|
|
|
#pragma omp parallel default(none) // expected-note {{explicit data sharing attribute requested here}}
|
|
#pragma omp parallel default(shared)
|
|
++argc; // expected-error {{variable 'argc' must have explicitly specified data sharing attributes}}
|
|
|
|
#pragma omp parallel default(none) // ge40-note {{explicit data sharing attribute requested here}}
|
|
(void)c; // ge40-error {{variable 'c' must have explicitly specified data sharing attributes}}
|
|
|
|
#ifdef OMP51
|
|
#pragma omp parallel default(firstprivate) // expected-note 2 {{explicit data sharing attribute requested here}}
|
|
{
|
|
++x; // expected-error {{variable 'x' must have explicitly specified data sharing attributes}}
|
|
++y; // expected-error {{variable 'y' must have explicitly specified data sharing attributes}}
|
|
}
|
|
#pragma omp parallel default(private) // expected-note 2 {{explicit data sharing attribute requested here}}
|
|
{
|
|
++x; // expected-error {{variable 'x' must have explicitly specified data sharing attributes}}
|
|
++y; // expected-error {{variable 'y' must have explicitly specified data sharing attributes}}
|
|
}
|
|
#endif
|
|
|
|
#ifdef OMP60
|
|
#pragma omp parallel default(shared:) private(x,y) // expected-error {{wrong variable category specified with modifier shared in the default clause}}
|
|
{
|
|
++x;
|
|
++y;
|
|
}
|
|
#pragma omp parallel default(shared: junk) private(x,y) // expected-error {{wrong variable category specified with modifier shared in the default clause}}
|
|
{
|
|
++x;
|
|
++y;
|
|
}
|
|
#pragma omp parallel default(firstprivate: junk) private(x,y) // expected-error {{wrong variable category specified with modifier firstprivate in the default clause}}
|
|
{
|
|
++x;
|
|
++y;
|
|
}
|
|
#pragma omp parallel default(private: allocatable) private(x,y) // expected-error {{wrong variable category specified with modifier private in the default clause}}
|
|
{
|
|
++x;
|
|
++y;
|
|
}
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
class A{
|
|
void a() {
|
|
#pragma omp parallel
|
|
a(b); // expected-error {{use of undeclared identifier 'b'}}
|
|
}
|
|
};
|