(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c-c++-common/
target-implicit-map-2.c
       1  #include <stdlib.h>
       2  
       3  #define N 10
       4  
       5  struct S
       6  {
       7    int a, b;
       8    int *ptr;
       9    int c, d;
      10  };
      11  
      12  int
      13  main (void)
      14  {
      15    struct S a;
      16    a.ptr = (int *) malloc (sizeof (int) * N);
      17  
      18    for (int i = 0; i < N; i++)
      19      a.ptr[i] = 0;
      20  
      21    #pragma omp target enter data map(to: a.ptr, a.ptr[:N])
      22  
      23    #pragma omp target
      24    for (int i = 0; i < N; i++)
      25      a.ptr[i] += 1;
      26  
      27    #pragma omp target update from(a.ptr[:N])
      28  
      29    for (int i = 0; i < N; i++)
      30      if (a.ptr[i] != 1)
      31        abort ();
      32  
      33    #pragma omp target map(a.ptr[:N])
      34    for (int i = 0; i < N; i++)
      35      a.ptr[i] += 1;
      36  
      37    #pragma omp target update from(a.ptr[:N])
      38  
      39    for (int i = 0; i < N; i++)
      40      if (a.ptr[i] != 2)
      41        abort ();
      42  
      43    #pragma omp target exit data map(from:a.ptr, a.ptr[:N])
      44  
      45    return 0;
      46  }