1 /* PR c/67500 */
2 /* { dg-do compile } */
3 /* { dg-options "-fopenmp" } */
4
5 #pragma omp declare simd simdlen(d) /* { dg-error "clause expression must be positive constant integer expression" } */
6 void f1 (int); /* { dg-error "undeclared here" "" { target *-*-* } .-1 } */
7 #pragma omp declare simd simdlen(0.5) /* { dg-error "clause expression must be positive constant integer expression" } */
8 void f2 (int);
9 #pragma omp declare simd simdlen(-2) /* { dg-error "clause expression must be positive constant integer expression" } */
10 void f3 (int);
11 #pragma omp declare simd simdlen(0) /* { dg-error "clause expression must be positive constant integer expression" } */
12 void f4 (int);
13
14 void
foo(int * p)15 foo (int *p)
16 {
17 int i;
18 #pragma omp simd safelen(d) /* { dg-error "must be positive constant integer expression" } */
19 for (i = 0; i < 16; ++i) /* { dg-error "undeclared" "" { target *-*-* } .-1 } */
20 ;
21 #pragma omp simd safelen(0.5) /* { dg-error "must be positive constant integer expression" } */
22 for (i = 0; i < 16; ++i)
23 ;
24 #pragma omp simd safelen(-2) /* { dg-error "must be positive constant integer expression" } */
25 for (i = 0; i < 16; ++i)
26 ;
27 #pragma omp simd safelen(0) /* { dg-error "must be positive constant integer expression" } */
28 for (i = 0; i < 16; ++i)
29 ;
30 #pragma omp simd aligned(p:d) /* { dg-error "must be positive constant integer expression" } */
31 for (i = 0; i < 16; ++i)
32 ;
33 #pragma omp simd aligned(p:0.5) /* { dg-error "must be positive constant integer expression" } */
34 for (i = 0; i < 16; ++i)
35 ;
36 #pragma omp simd aligned(p:-2) /* { dg-error "must be positive constant integer expression" } */
37 for (i = 0; i < 16; ++i)
38 ;
39 #pragma omp simd aligned(p:0) /* { dg-error "must be positive constant integer expression" } */
40 for (i = 0; i < 16; ++i)
41 ;
42 }
43