libgomp/testsuite/libgomp.oacc-c-c++-common/declare-1.c

   1 #include <openacc.h>
   2 #include <stdlib.h>
   3 #include <stdio.h>
   4
   5 #define N 8
   6
   7 void
   8 subr2 (int *a)
   9 {
  10   int i;
  11   int f[N];
  12 #pragma acc declare copyout (f)
  13
  14 #pragma acc parallel copy (a[0:N])
  15   {
  16     for (i = 0; i < N; i++)
  17       {
  18         f[i] = a[i];
  19         a[i] = f[i] + f[i] + f[i];
  20       }
  21   }
  22 }
  23
  24 void
  25 subr1 (int *a)
  26 {
  27   int f[N];
  28 #pragma acc declare copy (f)
  29
  30 #pragma acc parallel copy (a[0:N])
  31   {
  32     int i;
  33
  34     for (i = 0; i < N; i++)
  35       {
  36         f[i] = a[i];
  37         a[i] = f[i] + f[i];
  38       }
  39   }
  40 }
  41
  42 int b[8];
  43 #pragma acc declare create (b)
  44
  45 int d[8] = { 1, 2, 3, 4, 5, 6, 7, 8 };
  46 #pragma acc declare copyin (d)
  47
  48 int
  49 main (int argc, char **argv)
  50 {
  51   int a[N];
  52   int e[N];
  53 #pragma acc declare create (e)
  54   int i;
  55
  56   for (i = 0; i < N; i++)
  57     a[i] = i + 1;
  58
  59   if (!acc_is_present (&b, sizeof (b)))
  60     abort ();
  61
  62   if (!acc_is_present (&d, sizeof (d)))
  63     abort ();
  64
  65   if (!acc_is_present (&e, sizeof (e)))
  66     abort ();
  67
  68 #pragma acc parallel copyin (a[0:N])
  69   {
  70     for (i = 0; i < N; i++)
  71       {
  72         b[i] = a[i];
  73         a[i] = b[i];
  74       }
  75   }
  76
  77   for (i = 0; i < N; i++)
  78     {
  79       if (a[i] != i + 1)
  80         abort ();
  81     }
  82
  83 #pragma acc parallel copy (a[0:N])
  84   {
  85     for (i = 0; i < N; i++)
  86       {
  87         e[i] = a[i] + d[i];
  88         a[i] = e[i];
  89       }
  90   }
  91
  92   for (i = 0; i < N; i++)
  93     {
  94       if (a[i] != (i + 1) * 2)
  95         abort ();
  96     }
  97
  98   for (i = 0; i < N; i++)
  99     {
 100       a[i] = 1234;
 101     }
 102
 103   subr1 (&a[0]);
 104
 105   for (i = 0; i < N; i++)
 106     {
 107       if (a[i] != 1234 * 2)
 108         abort ();
 109     }
 110
 111   subr2 (&a[0]);
 112
 113   for (i = 0; i < 1; i++)
 114     {
 115       if (a[i] != 1234 * 6)
 116         abort ();
 117     }
 118
 119   return 0;
 120 }