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

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