(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
examples-4/
array_sections-3.c
       1  /* { dg-do run } */
       2  
       3  #include <stdlib.h>
       4  
       5  void foo ()
       6  {
       7    int A[30], *p;
       8    #pragma omp target data map(A[0:4])
       9      {
      10        p = &A[0];
      11        #pragma omp target map(p[7:20]) map(A[0:4])
      12  	{
      13  	  A[2] = 777;
      14  	  p[8] = 777;
      15  	}
      16      }
      17  
      18    if (A[2] != 777 || A[8] != 777)
      19      abort ();
      20  }
      21  
      22  int main ()
      23  {
      24    foo ();
      25    return 0;
      26  }