1  /* PR c/65467 */
       2  /* { dg-do compile } */
       3  /* { dg-additional-options "-std=c11" } */
       4  
       5  void
       6  f1 (void)
       7  {
       8    _Atomic int i;
       9    #pragma omp for		/* { dg-error "'_Atomic' iteration variable 'i'" } */
      10    for (i = 0; i < 64; i++)
      11      ;
      12    #pragma omp parallel for	/* { dg-error "'_Atomic' iteration variable 'i'" } */
      13    for (i = 0; i < 64; i++)
      14      ;
      15    #pragma omp simd		/* { dg-error "'_Atomic' iteration variable 'i'" } */
      16    for (i = 0; i < 64; i++)
      17      ;
      18    #pragma omp parallel for simd	/* { dg-error "'_Atomic' iteration variable 'i'" } */
      19    for (i = 0; i < 64; i++)
      20      ;
      21    #pragma omp for simd		/* { dg-error "'_Atomic' iteration variable 'i'" } */
      22    for (i = 0; i < 64; i++)
      23      ;
      24    #pragma omp for		/* { dg-error "'_Atomic' iteration variable 'j'" } */
      25    for (_Atomic int j = 0; j < 64; j++)
      26      ;
      27    #pragma omp parallel for	/* { dg-error "'_Atomic' iteration variable 'j'" } */
      28    for (_Atomic int j = 0; j < 64; j++)
      29      ;
      30    #pragma omp simd		/* { dg-error "'_Atomic' iteration variable 'j'" } */
      31    for (_Atomic int j = 0; j < 64; j++)
      32      ;
      33    #pragma omp parallel for simd	/* { dg-error "'_Atomic' iteration variable 'j'" } */
      34    for (_Atomic int j = 0; j < 64; j++)
      35      ;
      36    #pragma omp for simd		/* { dg-error "'_Atomic' iteration variable 'j'" } */
      37    for (_Atomic int j = 0; j < 64; j++)
      38      ;
      39  }
      40  
      41  void
      42  f2 (void)
      43  {
      44    _Atomic int i;
      45    #pragma omp distribute		/* { dg-error "'_Atomic' iteration variable 'i'" } */
      46    for (i = 0; i < 64; i++)
      47      ;
      48    #pragma omp distribute parallel for	/* { dg-error "'_Atomic' iteration variable 'i'" } */
      49    for (i = 0; i < 64; i++)
      50      ;
      51    #pragma omp distribute parallel for simd /* { dg-error "'_Atomic' iteration variable 'i'" } */
      52    for (i = 0; i < 64; i++)
      53      ;
      54    #pragma omp distribute		/* { dg-error "'_Atomic' iteration variable 'j'" } */
      55    for (_Atomic int j = 0; j < 64; j++)
      56      ;
      57    #pragma omp distribute parallel for	/* { dg-error "'_Atomic' iteration variable 'j'" } */
      58    for (_Atomic int j = 0; j < 64; j++)
      59      ;
      60    #pragma omp distribute parallel for simd /* { dg-error "'_Atomic' iteration variable 'j'" } */
      61    for (_Atomic int j = 0; j < 64; j++)
      62      ;
      63  }
      64  
      65  void
      66  f3 (void)
      67  {
      68    int i;
      69    _Atomic int j = 0;
      70    #pragma omp simd linear(j:2)		/* { dg-error "'_Atomic' 'j' in 'linear' clause" } */
      71    for (i = 0; i < 64; i++)
      72      j += 2;
      73    #pragma omp parallel for linear(j:1)	/* { dg-error "'_Atomic' 'j' in 'linear' clause" } */
      74    for (i = 0; i < 64; i++)
      75      j++;
      76  }