1  /* { dg-do run { target { ! openacc_host_selected } } } */
       2  
       3  #include <stdlib.h>
       4  #include <assert.h>
       5  #include <openacc.h>
       6  
       7  struct dc
       8  {
       9    int a;
      10    int **b;
      11  };
      12  
      13  int
      14  main ()
      15  {
      16    int n = 100, i, j, k;
      17    struct dc v = { .a = 3 };
      18  
      19    v.b = (int **) malloc (sizeof (int *) * n);
      20    for (i = 0; i < n; i++)
      21      v.b[i] = (int *) malloc (sizeof (int) * n);
      22  
      23    for (k = 0; k < 16; k++)
      24      {
      25  #pragma acc data copy(v)
      26        {
      27  #pragma acc data copy(v.b[:n])
      28  	{
      29  	  for (i = 0; i < n; i++)
      30  	    {
      31  	      acc_copyin (v.b[i], sizeof (int) * n);
      32  	      acc_attach ((void **) &v.b[i]);
      33  	    }
      34  
      35  #pragma acc parallel loop
      36  	  for (i = 0; i < n; i++)
      37  	    for (j = 0; j < n; j++)
      38  	      v.b[i][j] = v.a + i + j;
      39  
      40  	  for (i = 0; i < n; i++)
      41  	    {
      42  	      acc_detach ((void **) &v.b[i]);
      43  	      acc_copyout (v.b[i], sizeof (int) * n);
      44  	    }
      45  	}
      46        }
      47  
      48        for (i = 0; i < n; i++)
      49  	for (j = 0; j < n; j++)
      50  	  assert (v.b[i][j] == v.a + i + j);
      51  
      52        assert (!acc_is_present (&v, sizeof (v)));
      53        assert (!acc_is_present (v.b, sizeof (int *) * n));
      54        for (i = 0; i < n; i++)
      55  	assert (!acc_is_present (v.b[i], sizeof (int) * n));
      56      }
      57  
      58    return 0;
      59  }