1  /* Reduced from 'libgomp.oacc-c-c++-common/declare-vla.c', and then
       2     extended.  */
       3  
       4  /* { dg-additional-options "--param openacc-kernels=decompose" } */
       5  
       6  /* { dg-additional-options "-fopt-info-all-omp" } */
       7  
       8  /* { dg-additional-options "--param=openacc-privatization=noisy" } */
       9  
      10  void
      11  foo (void)
      12  {
      13  #pragma acc data /* { dg-line l_data1 } */
      14    /* { dg-bogus {note: variable 'i' declared in block is candidate for adjusting OpenACC privatization level} {TODO 'data'} { xfail *-*-* } l_data1 } */
      15    {
      16      int i;
      17  
      18  #pragma acc kernels /* { dg-line l_compute1 } */
      19      /* { dg-note {OpenACC 'kernels' decomposition: variable 'i' in 'copy' clause requested to be made addressable} {} { target *-*-* } l_compute1 }
      20         { dg-note {variable 'i' made addressable} {} { target *-*-* } l_compute1 } */
      21      /* { dg-note {beginning 'gang-single' part in OpenACC 'kernels' region} {} { target *-*-* } .+1 } */
      22      i = 0;
      23  
      24  #pragma acc kernels /* { dg-line l_compute2 } */
      25      /* { dg-note {OpenACC 'kernels' decomposition: variable 'i' in 'copy' clause requested to be made addressable} {} { target *-*-* } l_compute2 }
      26         { dg-note {variable 'i' already made addressable} {} { target *-*-* } l_compute2 } */
      27      /* { dg-note {beginning 'gang-single' part in OpenACC 'kernels' region} {} { target *-*-* } .+1 } */
      28      i = -1;
      29    }
      30  }
      31  
      32  void
      33  foo2 (void)
      34  {
      35    int i[1];
      36  
      37  #pragma acc kernels /* { dg-line l2_compute1 } */
      38    /* { dg-note {OpenACC 'kernels' decomposition: variable 'i' in 'copy' clause requested to be made addressable} {} { target *-*-* } l2_compute1 }
      39       { dg-note {variable 'i' made addressable} {} { target *-*-* } l2_compute1 } */
      40    /* { dg-note {beginning 'gang-single' part in OpenACC 'kernels' region} {} { target *-*-* } .+1 } */
      41    i[0] = 0;
      42  
      43  #pragma acc kernels /* { dg-line l2_compute2 } */
      44    /* { dg-note {OpenACC 'kernels' decomposition: variable 'i' in 'copy' clause requested to be made addressable} {} { target *-*-* } l2_compute2 }
      45       { dg-note {variable 'i' already made addressable} {} { target *-*-* } l2_compute2 } */
      46    /* { dg-note {beginning 'gang-single' part in OpenACC 'kernels' region} {} { target *-*-* } .+1 } */
      47    i[0] = -1;
      48  }