2015-05-20 12:24:19 +08:00
// RUN: %clang_cc1 -fsyntax-only -fopenmp -triple x86_64-unknown-unknown -verify %s
2014-06-18 12:14:57 +08:00
// expected-error@+1 {{unexpected OpenMP directive '#pragma omp for'}}
# pragma omp for
// expected-error@+1 {{unexpected OpenMP directive '#pragma omp for'}}
# pragma omp for foo
void test_no_clause ( ) {
int i ;
# pragma omp for
for ( i = 0 ; i < 16 ; + + i )
;
// expected-error@+2 {{statement after '#pragma omp for' must be a for loop}}
# pragma omp for
+ + i ;
}
void test_branch_protected_scope ( ) {
int i = 0 ;
L1 :
+ + i ;
int x [ 24 ] ;
# pragma omp parallel
# pragma omp 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 ;
# pragma omp parallel
// expected-warning@+1 {{extra tokens at the end of '#pragma omp for' are ignored}}
# pragma omp for foo bar
for ( i = 0 ; i < 16 ; + + i )
;
}
void test_non_identifiers ( ) {
int i , x ;
# pragma omp parallel
// expected-warning@+1 {{extra tokens at the end of '#pragma omp for' are ignored}}
# pragma omp for;
for ( i = 0 ; i < 16 ; + + i )
;
2015-08-04 19:18:19 +08:00
// expected-warning@+2 {{extra tokens at the end of '#pragma omp for' are ignored}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
# pragma omp for linear(x);
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-warning@+1 {{extra tokens at the end of '#pragma omp for' are ignored}}
# pragma omp for private(x);
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-warning@+1 {{extra tokens at the end of '#pragma omp for' are ignored}}
# pragma omp for, private(x);
for ( i = 0 ; i < 16 ; + + i )
;
}
extern int foo ( ) ;
void test_collapse ( ) {
int i ;
# pragma omp parallel
// expected-error@+1 {{expected '('}}
# pragma omp for collapse
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp for collapse(
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for collapse()
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp for collapse(,
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp for collapse(, )
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-warning@+2 {{extra tokens at the end of '#pragma omp for' are ignored}}
// expected-error@+1 {{expected '('}}
# pragma omp for collapse 4)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+2 {{expected ')'}}
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
// expected-error@+2 {{expected ')'}}
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4,
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
// expected-error@+2 {{expected ')'}}
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4, )
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4)
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
// expected-error@+2 {{expected ')'}}
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4 4)
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
// expected-error@+2 {{expected ')'}}
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4, , 4)
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
# pragma omp 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 ( ) ;
# pragma omp parallel
// expected-error@+2 {{expected ')'}}
2014-06-24 20:55:56 +08:00
// expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(4, 8)
for ( i = 0 ; i < 16 ; + + i )
2014-06-24 20:55:56 +08:00
; // expected-error {{expected 4 for loops after '#pragma omp for', but found only 1}}
2014-06-18 12:14:57 +08:00
# pragma omp parallel
// expected-error@+1 {{expression is not an integer constant expression}}
# pragma omp for collapse(2.5)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expression is not an integer constant expression}}
# pragma omp for collapse(foo())
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
2015-12-01 18:17:31 +08:00
// expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(-5)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
2015-12-01 18:17:31 +08:00
// expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(0)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
2015-12-01 18:17:31 +08:00
// expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
2014-06-18 12:14:57 +08:00
# pragma omp for collapse(5 - 5)
for ( i = 0 ; i < 16 ; + + i )
;
2014-07-25 14:27:47 +08:00
# pragma omp parallel
# pragma omp for collapse(2)
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 )
// expected-error@+2 {{private variable cannot be reduction}}
// expected-error@+1 {{region cannot be closely nested inside '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-06-18 12:14:57 +08:00
}
void test_private ( ) {
int i ;
# pragma omp parallel
// expected-error@+2 {{expected expression}}
// expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
# pragma omp for private(
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 2 {{expected expression}}
# pragma omp for private(,
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 2 {{expected expression}}
# pragma omp for private(, )
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for private()
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for private(int)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected variable name}}
# pragma omp for private(0)
for ( i = 0 ; i < 16 ; + + i )
;
int x , y , z ;
# pragma omp parallel
# pragma omp for private(x)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
# pragma omp for private(x, y)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
# pragma omp for private(x, y, z)
for ( i = 0 ; i < 16 ; + + i ) {
x = y * i + z ;
}
}
void test_lastprivate ( ) {
int i ;
# pragma omp parallel
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 {{expected expression}}
# pragma omp for lastprivate(
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 2 {{expected expression}}
# pragma omp for lastprivate(,
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 2 {{expected expression}}
# pragma omp for lastprivate(, )
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for lastprivate()
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for lastprivate(int)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected variable name}}
# pragma omp for lastprivate(0)
for ( i = 0 ; i < 16 ; + + i )
;
int x , y , z ;
# pragma omp parallel
# pragma omp for lastprivate(x)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
# pragma omp for lastprivate(x, y)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
# pragma omp for lastprivate(x, y, z)
for ( i = 0 ; i < 16 ; + + i )
;
}
void test_firstprivate ( ) {
int i ;
# pragma omp parallel
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 {{expected expression}}
# pragma omp for firstprivate(
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
// expected-error@+1 2 {{expected expression}}
# pragma omp for firstprivate(,
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 2 {{expected expression}}
# pragma omp for firstprivate(, )
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for firstprivate()
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected expression}}
# pragma omp for firstprivate(int)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
// expected-error@+1 {{expected variable name}}
# pragma omp for firstprivate(0)
for ( i = 0 ; i < 16 ; + + i )
;
int x , y , z ;
# pragma omp parallel
# pragma omp for lastprivate(x) firstprivate(x)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
# pragma omp for lastprivate(x, y) firstprivate(x, y)
for ( i = 0 ; i < 16 ; + + i )
;
# pragma omp parallel
# pragma omp 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 ] ;
# pragma omp parallel
// expected-error@+2 {{variable must be of integer or pointer type}}
# pragma omp for
for ( float fi = 0 ; fi < 10.0 ; fi + + ) {
c [ ( int ) fi ] = a [ ( int ) fi ] + b [ ( int ) fi ] ;
}
# pragma omp parallel
// expected-error@+2 {{variable must be of integer or pointer type}}
# pragma omp for
for ( double fi = 0 ; fi < 10.0 ; fi + + ) {
c [ ( int ) fi ] = a [ ( int ) fi ] + b [ ( int ) fi ] ;
}
2014-10-06 19:16:29 +08:00
// expected-warning@+2 {{OpenMP loop iteration variable cannot have more than 64 bits size and will be narrowed}}
# pragma omp for
for ( __int128 ii = 0 ; ii < 10 ; ii + + ) {
c [ ii ] = a [ ii ] + b [ ii ] ;
}
2014-06-18 12:14:57 +08:00
}