libgomp/testsuite/libgomp.c/target-17.c

   1 extern void abort (void);
   2
   3 void
   4 foo (int n)
   5 {
   6   int a[n], i, err;
   7   for (i = 0; i < n; i++)
   8     a[i] = 5 * i;
   9   #pragma omp target map(to:a) map(from:err) private(i)
  10   {
  11     err = 0;
  12     for (i = 0; i < n; i++)
  13       if (a[i] != 5 * i)
  14         err = 1;
  15   }
  16   if (err)
  17     abort ();
  18   for (i = 0; i < n; i++)
  19     a[i] += i;
  20   #pragma omp target map(from:err) private(i)
  21   {
  22     err = 0;
  23     for (i = 0; i < n; i++)
  24       if (a[i] != 6 * i)
  25         err = 1;
  26   }
  27   if (err)
  28     abort ();
  29   for (i = 0; i < n; i++)
  30     a[i] += i;
  31   #pragma omp target firstprivate (a) map(from:err) private(i)
  32   {
  33     err = 0;
  34     for (i = 0; i < n; i++)
  35       if (a[i] != 7 * i)
  36         err = 1;
  37   }
  38   if (err)
  39     abort ();
  40 }
  41
  42 int
  43 main ()
  44 {
  45   foo (9);
  46   return 0;
  47 }