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

   1 /* { dg-do run { target openacc_nvidia_accel_selected } } */
   2
   3 #include <stdlib.h>
   4
   5 #define N 16
   6
   7 float c[N];
   8 #pragma acc declare device_resident (c)
   9
  10 #pragma acc routine
  11 float
  12 subr2 (float a)
  13 {
  14   int i;
  15
  16   for (i = 0; i < N; i++)
  17     c[i] = 2.0;
  18
  19   for (i = 0; i < N; i++)
  20     a += c[i];
  21
  22   return a;
  23 }
  24
  25 float b[N];
  26 #pragma acc declare copyin (b)
  27
  28 #pragma acc routine
  29 float
  30 subr1 (float a)
  31 {
  32   int i;
  33
  34   for (i = 0; i < N; i++)
  35     a += b[i];
  36
  37   return a;
  38 }
  39
  40 int
  41 main (int argc, char **argv)
  42 {
  43   float a;
  44   int i;
  45
  46   for (i = 0; i < 16; i++)
  47     b[i] = 1.0;
  48
  49   a = 0.0;
  50
  51   a = subr1 (a);
  52
  53   if (a != 16.0)
  54     abort ();
  55
  56   a = 0.0;
  57
  58   a = subr2 (a);
  59
  60   if (a != 32.0)
  61     abort ();
  62
  63   return 0;
  64 }