libgomp/testsuite/libgomp.oacc-c-c++-common/deep-copy-6.c

/* { dg-do run { target { ! openacc_host_selected } } } */

#include <stdlib.h>
#include <assert.h>
#include <openacc.h>

struct dc
{
  int a;
  int **b;
};

int
main ()
{
  int n = 100, i, j, k;
  struct dc v = { .a = 3 };

  v.b = (int **) malloc (sizeof (int *) * n);
  for (i = 0; i < n; i++)
    v.b[i] = (int *) malloc (sizeof (int) * n);

  for (k = 0; k < 16; k++)
    {
#pragma acc data copy(v)
      {
#pragma acc data copy(v.b[:n])
	{
	  for (i = 0; i < n; i++)
	    {
	      acc_copyin (v.b[i], sizeof (int) * n);
	      acc_attach ((void **) &v.b[i]);
	    }

#pragma acc parallel loop
	  for (i = 0; i < n; i++)
	    for (j = 0; j < n; j++)
	      v.b[i][j] = v.a + i + j;

	  for (i = 0; i < n; i++)
	    {
	      acc_detach ((void **) &v.b[i]);
	      acc_copyout (v.b[i], sizeof (int) * n);
	    }
	}
      }

      for (i = 0; i < n; i++)
	for (j = 0; j < n; j++)
	  assert (v.b[i][j] == v.a + i + j);

      assert (!acc_is_present (&v, sizeof (v)));
      assert (!acc_is_present (v.b, sizeof (int *) * n));
      for (i = 0; i < n; i++)
	assert (!acc_is_present (v.b[i], sizeof (int) * n));
    }

  return 0;
}