2015-05-20 12:24:19 +08:00
// RUN: %clang_cc1 -fsyntax-only -fopenmp -verify %s
2014-07-07 21:01:15 +08:00
// expected-error@+1 {{unexpected OpenMP directive '#pragma omp parallel for'}}
# pragma omp parallel for
// expected-error@+1 {{unexpected OpenMP directive '#pragma omp parallel for'}}
# pragma omp parallel for foo
void test_no_clause ( ) {
int i ;
# pragma omp parallel for
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+2 {{statement after '#pragma omp parallel for' must be a for loop}}
# pragma omp parallel for
+ + i ;
}
void test_branch_protected_scope ( ) {
int i = 0 ;
L1 :
+ + i ;
int x [ 24 ] ;
# pragma omp parallel for
for ( i = 0 ; i < 16 ; + + i ) {
if ( i = = 5 )
goto L1 ; // expected-error {{use of undeclared label 'L1'}}
else if ( i = = 6 )
return ; // expected-error {{cannot return from OpenMP region}}
else if ( i = = 7 )
goto L2 ;
else if ( i = = 8 ) {
L2 :
x [ i ] + + ;
}
}
if ( x [ 0 ] = = 0 )
goto L2 ; // expected-error {{use of undeclared label 'L2'}}
else if ( x [ 1 ] = = 1 )
goto L1 ;
}
void test_invalid_clause ( ) {
int i ;
// expected-warning@+1 {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
# pragma omp parallel for foo bar
for ( i = 0 ; i < 16 ; + + i )
;
}
void test_non_identifiers ( ) {
int i , x ;
// expected-warning@+1 {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
# pragma omp parallel for;
for ( i = 0 ; i < 16 ; + + i )
;
// expected-warning@+1 {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
# pragma omp parallel for private(x);
for ( i = 0 ; i < 16 ; + + i )
;
// expected-warning@+1 {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
# pragma omp parallel for, private(x);
for ( i = 0 ; i < 16 ; + + i )
;
}
extern int foo ( ) ;
void test_collapse ( ) {
int i ;
// expected-error@+1 {{expected '('}}
# pragma omp parallel for collapse
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp parallel for collapse(
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for collapse()
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp parallel for collapse(,
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp parallel for collapse(, )
for ( i = 0 ; i < 16 ; + + i )
;
// expected-warning@+2 {{extra tokens at the end of '#pragma omp parallel for' are ignored}}
// expected-error@+1 {{expected '('}}
# pragma omp parallel for collapse 4)
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+2 {{expected ')'}}
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
// expected-error@+2 {{expected ')'}}
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4,
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
// expected-error@+2 {{expected ')'}}
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4, )
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
// expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4)
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
// expected-error@+2 {{expected ')'}}
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4 4)
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
// expected-error@+2 {{expected ')'}}
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4, , 4)
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
# pragma omp parallel for collapse(4)
for ( int i1 = 0 ; i1 < 16 ; + + i1 )
for ( int i2 = 0 ; i2 < 16 ; + + i2 )
for ( int i3 = 0 ; i3 < 16 ; + + i3 )
for ( int i4 = 0 ; i4 < 16 ; + + i4 )
foo ( ) ;
// expected-error@+2 {{expected ')'}}
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
# pragma omp parallel for collapse(4, 8)
for ( i = 0 ; i < 16 ; + + i )
; // expected-error {{expected 4 for loops after '#pragma omp parallel for', but found only 1}}
// expected-error@+1 {{expression is not an integer constant expression}}
# pragma omp parallel for collapse(2.5)
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expression is not an integer constant expression}}
# pragma omp parallel for collapse(foo())
for ( i = 0 ; i < 16 ; + + i )
;
2015-12-01 18:17:31 +08:00
// expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
2014-07-07 21:01:15 +08:00
# pragma omp parallel for collapse(-5)
for ( i = 0 ; i < 16 ; + + i )
;
2015-12-01 18:17:31 +08:00
// expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
2014-07-07 21:01:15 +08:00
# pragma omp parallel for collapse(0)
for ( i = 0 ; i < 16 ; + + i )
;
2015-12-01 18:17:31 +08:00
// expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
2014-07-07 21:01:15 +08:00
# pragma omp parallel for collapse(5 - 5)
for ( i = 0 ; i < 16 ; + + i )
;
2014-07-25 14:27:47 +08:00
// expected-note@+1 {{defined as firstprivate}}
# pragma omp parallel for collapse(2) firstprivate(i)
for ( i = 0 ; i < 16 ; + + i )
// expected-note@+1 {{variable with automatic storage duration is predetermined as private; perhaps you forget to enclose 'omp for' directive into a parallel or another task region?}}
for ( int j = 0 ; j < 16 ; + + j )
2015-12-10 16:20:58 +08:00
// expected-error@+2 2 {{reduction variable must be shared}}
2014-07-25 14:27:47 +08:00
// expected-error@+1 {{region cannot be closely nested inside 'parallel for' region; perhaps you forget to enclose 'omp for' directive into a parallel region?}}
# pragma omp for reduction(+ : i, j)
for ( int k = 0 ; k < 16 ; + + k )
i + = j ;
2014-07-07 21:01:15 +08:00
}
void test_private ( ) {
int i ;
// expected-error@+2 {{expected expression}}
// expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp parallel for private(
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 2 {{expected expression}}
# pragma omp parallel for private(,
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 2 {{expected expression}}
# pragma omp parallel for private(, )
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for private()
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for private(int)
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected variable name}}
# pragma omp parallel for private(0)
for ( i = 0 ; i < 16 ; + + i )
;
int x , y , z ;
# pragma omp parallel for private(x)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel for private(x, y)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel for private(x, y, z)
for ( i = 0 ; i < 16 ; + + i ) {
x = y * i + z ;
}
}
void test_lastprivate ( ) {
int i ;
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 {{expected expression}}
# pragma omp parallel for lastprivate(
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 2 {{expected expression}}
# pragma omp parallel for lastprivate(,
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 2 {{expected expression}}
# pragma omp parallel for lastprivate(, )
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for lastprivate()
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for lastprivate(int)
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected variable name}}
# pragma omp parallel for lastprivate(0)
for ( i = 0 ; i < 16 ; + + i )
;
int x , y , z ;
# pragma omp parallel for lastprivate(x)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel for lastprivate(x, y)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel for lastprivate(x, y, z)
for ( i = 0 ; i < 16 ; + + i )
;
}
void test_firstprivate ( ) {
int i ;
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 {{expected expression}}
# pragma omp parallel for firstprivate(
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 2 {{expected expression}}
# pragma omp parallel for firstprivate(,
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 2 {{expected expression}}
# pragma omp parallel for firstprivate(, )
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for firstprivate()
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected expression}}
# pragma omp parallel for firstprivate(int)
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+1 {{expected variable name}}
# pragma omp parallel for firstprivate(0)
for ( i = 0 ; i < 16 ; + + i )
;
int x , y , z ;
# pragma omp parallel for lastprivate(x) firstprivate(x)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel for lastprivate(x, y) firstprivate(x, y)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel for lastprivate(x, y, z) firstprivate(x, y, z)
for ( i = 0 ; i < 16 ; + + i )
;
}
void test_loop_messages ( ) {
float a [ 100 ] , b [ 100 ] , c [ 100 ] ;
// expected-error@+2 {{variable must be of integer or pointer type}}
# pragma omp parallel for
for ( float fi = 0 ; fi < 10.0 ; fi + + ) {
c [ ( int ) fi ] = a [ ( int ) fi ] + b [ ( int ) fi ] ;
}
// expected-error@+2 {{variable must be of integer or pointer type}}
# pragma omp parallel for
for ( double fi = 0 ; fi < 10.0 ; fi + + ) {
c [ ( int ) fi ] = a [ ( int ) fi ] + b [ ( int ) fi ] ;
}
}