(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.oacc-c-c++-common/
zero_length_subarrays.c
       1  /* Exercise zero-length sub-arrays.  */
       2  
       3  const int n = 10;
       4  
       5  void
       6  subzero_present (int *a, int n)
       7  {
       8  #pragma acc data present (a[0:n])
       9    ;
      10  #pragma acc data pcopy (a[0:n])
      11    ;
      12  #pragma acc data pcopyin (a[0:n])
      13    ;
      14  #pragma acc data pcopyout (a[0:n])
      15    ;
      16  
      17  }
      18  
      19  void
      20  subzero (int *a, int n)
      21  {
      22  #pragma acc data create (a[0:n])
      23    ;
      24  #pragma acc data copy (a[0:n])
      25    ;
      26  #pragma acc data copyin (a[0:n])
      27    ;
      28  #pragma acc data copyout (a[0:n])
      29    ;
      30  }
      31  
      32  int
      33  main ()
      34  {
      35    int a[n];
      36  
      37  #pragma acc data copy (a[0:n])
      38    {
      39      subzero_present (a, 0);
      40    }
      41  
      42    subzero (a, 0);
      43  
      44    return 0;
      45  }