1  /* PR c/65467 */
       2  /* { dg-do compile } */
       3  /* { dg-additional-options "-std=c11" } */
       4  
       5  void
       6  f1 (void)
       7  {
       8    struct S { int a; int b[2]; _Atomic int *c; };
       9    _Atomic int a = 0, b[2];
      10    _Atomic int d[3];
      11    _Atomic struct S c = (struct S) { 3, { 4, 5 }, d };
      12    int *_Atomic p;
      13    _Atomic int *q;
      14    int e[3] = { 1, 2, 3 };
      15    b[0] = 1;
      16    b[1] = 2;
      17    d[0] = 6;
      18    d[1] = 7;
      19    d[2] = 8;
      20    p = e;
      21    #pragma omp target map(tofrom: a)		/* { dg-error "'_Atomic' 'a' in 'map' clause" } */
      22    ;
      23    #pragma omp target map(to: b)			/* { dg-error "'_Atomic' 'b' in 'map' clause" } */
      24    ;
      25    #pragma omp target map(from: b[1:1])		/* { dg-error "'_Atomic' 'b' in 'map' clause" } */
      26    ;
      27    #pragma omp target map(to: c.a)		/* { dg-error "'_Atomic' 'c.a' in 'map' clause" } */
      28    /* { dg-warning "accessing a member 'a' of an atomic structure 'c'" "" { target *-*-* } .-1 } */
      29    ;
      30    #pragma omp target map(to: c.b[1])		/* { dg-error "'_Atomic' 'c.b' in 'map' clause" } */
      31    /* { dg-warning "accessing a member 'b' of an atomic structure 'c'" "" { target *-*-* } .-1 } */
      32    ;
      33    #pragma omp target data map(c)		/* { dg-error "'_Atomic' 'c' in 'map' clause" } */
      34    /* { dg-error "must contain at least one" "" { target *-*-* } .-1 } */
      35    {
      36      #pragma omp target update to (c.a)		/* { dg-error "'_Atomic' 'c.a' in 'to' clause" } */
      37      /* { dg-error "must contain at least one" "" { target *-*-* } .-1 } */
      38      /* { dg-warning "accessing a member 'a' of an atomic structure 'c'" "" { target *-*-* } .-2 } */
      39      #pragma omp target update from (c.b[1])	/* { dg-error "'_Atomic' 'c.b' in 'from' clause" } */
      40      /* { dg-error "must contain at least one" "" { target *-*-* } .-1 } */
      41      /* { dg-warning "accessing a member 'b' of an atomic structure 'c'" "" { target *-*-* } .-2 } */
      42      #pragma omp target update to (c)		/* { dg-error "'_Atomic' 'c' in 'to' clause" } */
      43      /* { dg-error "must contain at least one" "" { target *-*-* } .-1 } */
      44    }
      45    #pragma omp target map(to: c.c[0:])		/* { dg-error "'_Atomic' 'c.c' in 'map' clause" } */
      46    /* { dg-warning "accessing a member 'c' of an atomic structure 'c'" "" { target *-*-* } .-1 } */
      47    ;
      48    #pragma omp target map(to: p[1:2])		/* { dg-error "'_Atomic' 'p' in 'map' clause" } */
      49    ;
      50    #pragma omp target map(to: q[1:2])		/* { dg-error "'_Atomic' '\[^\n\r]*' in 'map' clause" } */
      51    ;
      52  }
      53  
      54  void
      55  f2 (void)
      56  {
      57    _Atomic int a = 0, b[2] = { 1, 2 };
      58    #pragma omp target defaultmap(tofrom:scalar)	/* { dg-error "'_Atomic' 'a' in implicit 'map' clause" } */
      59    a++;
      60    #pragma omp target				/* { dg-error "'_Atomic' 'b' in implicit 'map' clause" } */
      61    b[0]++;
      62  }
      63  
      64  void
      65  f3 (void)
      66  {
      67    _Atomic int a = 0, b[2] = { 1, 2 };
      68    #pragma omp target				/* { dg-error "'_Atomic' 'a' in implicit 'firstprivate' clause on 'target' construct" } */
      69    a++;
      70    #pragma omp target firstprivate (a)		/* { dg-error "'_Atomic' 'a' in 'firstprivate' clause on 'target' construct" } */
      71    a++;
      72    #pragma omp target firstprivate (b)		/* { dg-error "'_Atomic' 'b' in 'firstprivate' clause on 'target' construct" } */
      73    b[0]++;
      74  }