offload/test/offloading/bug51982.c

   1 // RUN: %libomptarget-compile-generic -O1 && %libomptarget-run-generic
   2 // -O1 to run openmp-opt
   3 // RUN: %libomptarget-compileopt-generic -O1 && %libomptarget-run-generic
   4 // XFAIL: amdgcn-amd-amdhsa
   5
   6 int main(void) {
   7   long int aa = 0;
   8
   9   int ng = 12;
  10   int nxyz = 5;
  11
  12   const long exp = ng * nxyz;
  13
  14 #pragma omp target map(tofrom : aa)
  15   for (int gid = 0; gid < nxyz; gid++) {
  16 #pragma omp parallel for
  17     for (unsigned int g = 0; g < ng; g++) {
  18 #pragma omp atomic
  19       aa += 1;
  20     }
  21   }
  22   if (aa != exp) {
  23     return 1;
  24   }
  25   return 0;
  26 }