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

   1 #include <stdlib.h>
   2 #include <openacc.h>
   3
   4 float b;
   5 #pragma acc declare create (b)
   6
   7 #pragma acc routine
   8 int
   9 func (int a)
  10 {
  11   b = a + 1;
  12
  13   return b;
  14 }
  15
  16 int
  17 main (int argc, char **argv)
  18 {
  19   float a;
  20
  21   a = 2.0;
  22
  23 #pragma acc parallel copy (a)
  24   {
  25     b = a;
  26     a = 1.0;
  27     a = a + b;
  28   }
  29
  30   if (a != 3.0)
  31     abort ();
  32
  33   a = func (a);
  34
  35   if (a != 4.0)
  36     abort ();
  37
  38   return 0;
  39 }