gcc/testsuite/gcc.dg/gomp/pr67500.c

   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
  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 }