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

   1 /* { dg-do run } */
   2 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
   3
   4 #include <openacc.h>
   5 #include <string.h>
   6 #include <stdio.h>
   7 #include <stdlib.h>
   8 #include <stdbool.h>
   9
  10 int
  11 main (int argc, char **argv)
  12 {
  13     int N = 8;
  14     float *a, *b, *c;
  15     float *d_a, *d_b, *d_c;
  16     int i;
  17
  18     a = (float *) malloc (N * sizeof (float));
  19     b = (float *) malloc (N * sizeof (float));
  20     c = (float *) malloc (N * sizeof (float));
  21
  22     d_a = (float *) acc_malloc (N * sizeof (float));
  23     d_b = (float *) acc_malloc (N * sizeof (float));
  24     d_c = (float *) acc_malloc (N * sizeof (float));
  25
  26     for (i = 0; i < N; i++)
  27     {
  28         a[i] = 3.0;
  29         b[i] = 0.0;
  30     }
  31
  32     acc_map_data (a, d_a, N * sizeof (float));
  33     acc_map_data (b, d_b, N * sizeof (float));
  34     acc_map_data (c, d_c, N * sizeof (float));
  35
  36 #pragma acc update device (a[0:N], b[0:N])
  37
  38 #pragma acc parallel present (a[0:N], b[0:N])
  39     {
  40         int ii;
  41
  42         for (ii = 0; ii < N; ii++)
  43             b[ii] = a[ii];
  44     }
  45
  46 #pragma acc update host (a[0:N], b[0:N])
  47
  48     for (i = 0; i < N; i++)
  49     {
  50         if (a[i] != 3.0)
  51             abort ();
  52
  53         if (b[i] != 3.0)
  54             abort ();
  55     }
  56
  57     if (!acc_is_present (&a[0], (N * sizeof (float))))
  58       abort ();
  59
  60     if (!acc_is_present (&b[0], (N * sizeof (float))))
  61       abort ();
  62
  63     for (i = 0; i < N; i++)
  64     {
  65         a[i] = 5.0;
  66         b[i] = 1.0;
  67     }
  68
  69 #pragma acc update device (a[0:N], b[0:N])
  70
  71 #pragma acc parallel present (a[0:N], b[0:N])
  72     {
  73         int ii;
  74
  75         for (ii = 0; ii < N; ii++)
  76             b[ii] = a[ii];
  77     }
  78
  79 #pragma acc update host (a[0:N], b[0:N])
  80
  81     for (i = 0; i < N; i++)
  82     {
  83         if (a[i] != 5.0)
  84             abort ();
  85
  86         if (b[i] != 5.0)
  87             abort ();
  88     }
  89
  90     if (!acc_is_present (&a[0], (N * sizeof (float))))
  91       abort ();
  92
  93     if (!acc_is_present (&b[0], (N * sizeof (float))))
  94       abort ();
  95
  96     for (i = 0; i < N; i++)
  97     {
  98         a[i] = 5.0;
  99         b[i] = 1.0;
 100     }
 101
 102 #pragma acc update device (a[0:N], b[0:N])
 103
 104 #pragma acc parallel present (a[0:N], b[0:N])
 105     {
 106         int ii;
 107
 108         for (ii = 0; ii < N; ii++)
 109             b[ii] = a[ii];
 110     }
 111
 112 #pragma acc update self (a[0:N], b[0:N])
 113
 114     for (i = 0; i < N; i++)
 115     {
 116         if (a[i] != 5.0)
 117             abort ();
 118
 119         if (b[i] != 5.0)
 120             abort ();
 121     }
 122
 123     if (!acc_is_present (&a[0], (N * sizeof (float))))
 124       abort ();
 125
 126     if (!acc_is_present (&b[0], (N * sizeof (float))))
 127       abort ();
 128
 129     for (i = 0; i < N; i++)
 130     {
 131         a[i] = 6.0;
 132         b[i] = 0.0;
 133     }
 134
 135 #pragma acc update device (a[0:N], b[0:N])
 136
 137     for (i = 0; i < N; i++)
 138     {
 139         a[i] = 9.0;
 140     }
 141
 142 #pragma acc parallel present (a[0:N], b[0:N])
 143     {
 144         int ii;
 145
 146         for (ii = 0; ii < N; ii++)
 147             b[ii] = a[ii];
 148     }
 149
 150 #pragma acc update host (a[0:N], b[0:N])
 151
 152     for (i = 0; i < N; i++)
 153     {
 154         if (a[i] != 6.0)
 155             abort ();
 156
 157         if (b[i] != 6.0)
 158             abort ();
 159     }
 160
 161     if (!acc_is_present (&a[0], (N * sizeof (float))))
 162       abort ();
 163
 164     if (!acc_is_present (&b[0], (N * sizeof (float))))
 165       abort ();
 166
 167     for (i = 0; i < N; i++)
 168     {
 169         a[i] = 7.0;
 170         b[i] = 2.0;
 171     }
 172
 173 #pragma acc update device (a[0:N], b[0:N])
 174
 175     for (i = 0; i < N; i++)
 176     {
 177         a[i] = 9.0;
 178     }
 179
 180 #pragma acc parallel present (a[0:N], b[0:N])
 181     {
 182         int ii;
 183
 184         for (ii = 0; ii < N; ii++)
 185             b[ii] = a[ii];
 186     }
 187
 188 #pragma acc update host (a[0:N], b[0:N])
 189
 190     for (i = 0; i < N; i++)
 191     {
 192         if (a[i] != 7.0)
 193             abort ();
 194
 195         if (b[i] != 7.0)
 196             abort ();
 197     }
 198
 199     for (i = 0; i < N; i++)
 200     {
 201         a[i] = 9.0;
 202     }
 203
 204 #pragma acc update device (a[0:N])
 205
 206 #pragma acc parallel present (a[0:N], b[0:N])
 207     {
 208         int ii;
 209
 210         for (ii = 0; ii < N; ii++)
 211             b[ii] = a[ii];
 212     }
 213
 214 #pragma acc update host (a[0:N], b[0:N])
 215
 216     for (i = 0; i < N; i++)
 217     {
 218         if (a[i] != 9.0)
 219             abort ();
 220
 221         if (b[i] != 9.0)
 222             abort ();
 223     }
 224
 225     if (!acc_is_present (&a[0], (N * sizeof (float))))
 226       abort ();
 227
 228     if (!acc_is_present (&b[0], (N * sizeof (float))))
 229       abort ();
 230
 231     for (i = 0; i < N; i++)
 232     {
 233         a[i] = 5.0;
 234     }
 235
 236 #pragma acc update device (a[0:N])
 237
 238     for (i = 0; i < N; i++)
 239     {
 240         a[i] = 6.0;
 241     }
 242
 243 #pragma acc update device (a[0:N >> 1])
 244
 245 #pragma acc parallel present (a[0:N], b[0:N])
 246     {
 247         int ii;
 248
 249         for (ii = 0; ii < N; ii++)
 250             b[ii] = a[ii];
 251     }
 252
 253 #pragma acc update host (a[0:N], b[0:N])
 254
 255     for (i = 0; i < (N >> 1); i++)
 256     {
 257         if (a[i] != 6.0)
 258             abort ();
 259
 260         if (b[i] != 6.0)
 261             abort ();
 262     }
 263
 264     for (i = (N >> 1); i < N; i++)
 265     {
 266         if (a[i] != 5.0)
 267             abort ();
 268
 269         if (b[i] != 5.0)
 270             abort ();
 271     }
 272
 273     if (!acc_is_present (&a[0], (N * sizeof (float))))
 274       abort ();
 275
 276     if (!acc_is_present (&b[0], (N * sizeof (float))))
 277       abort ();
 278
 279     return 0;
 280 }