libgomp/testsuite/libgomp.c/target-30.c

   1 extern void abort (void);
   2
   3 #pragma omp declare target
   4 int v = 6;
   5 #pragma omp end declare target
   6
   7 int
   8 main ()
   9 {
  10   #pragma omp target /* predetermined map(tofrom: v) */
  11   v++;
  12   #pragma omp target update from (v)
  13   if (v != 7)
  14     abort ();
  15   #pragma omp parallel private (v) num_threads (1)
  16   {
  17     #pragma omp target /* predetermined firstprivate(v) */
  18     v++;
  19   }
  20   #pragma omp target update from (v)
  21   if (v != 7)
  22     abort ();
  23   return 0;
  24 }