libgomp/testsuite/libgomp.oacc-c-c++-common/par-reduction-2.c

   1 /* Test of reduction on parallel directive (with async).  */
   2 /* See also Fortran variants in "../libgomp.oacc-fortran/par-reduction-2*".  */
   3
   4 /* { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting
   5    aspects of that functionality.  */
   6
   7 #include <assert.h>
   8 #include <openacc.h>
   9
  10 int
  11 main (int argc, char *argv[])
  12 {
  13   int res, res1 = 0, res2 = 0;
  14
  15 #if defined(ACC_DEVICE_TYPE_host)
  16 # define GANGS 1
  17 #else
  18 # define GANGS 256
  19 #endif
  20   #pragma acc parallel num_gangs(GANGS) num_workers(32) vector_length(32) \
  21     reduction(+:res1) copy(res1, res2) async(1)
  22   /* { dg-bogus "warning: region is gang partitioned but does not contain gang partitioned code" "TODO 'reduction', 'atomic'" { xfail { ! openacc_host_selected } } .-2 } */
  23   /* { dg-warning "region is worker partitioned but does not contain worker partitioned code" "" { target *-*-* } .-3 } */
  24   /* { dg-warning "region is vector partitioned but does not contain vector partitioned code" "" { target *-*-* } .-4 } */
  25   {
  26     res1 += 5;
  27
  28     #pragma acc atomic
  29     res2 += 5;
  30   }
  31   res = GANGS * 5;
  32
  33   acc_async_wait (1);
  34
  35   assert (res == res1);
  36   assert (res == res2);
  37 #undef GANGS
  38
  39   res = res1 = res2 = 1;
  40
  41 #if defined(ACC_DEVICE_TYPE_host)
  42 # define GANGS 1
  43 #else
  44 # define GANGS 8
  45 #endif
  46   #pragma acc parallel num_gangs(GANGS) num_workers(32) vector_length(32) \
  47     reduction(*:res1) copy(res1, res2) async(1)
  48   /* { dg-bogus "warning: region is gang partitioned but does not contain gang partitioned code" "TODO 'reduction', 'atomic'" { xfail { ! openacc_host_selected } } .-2 } */
  49   /* { dg-warning "region is worker partitioned but does not contain worker partitioned code" "" { target *-*-* } .-3 } */
  50   /* { dg-warning "region is vector partitioned but does not contain vector partitioned code" "" { target *-*-* } .-4 } */
  51   {
  52     res1 *= 5;
  53
  54     #pragma acc atomic
  55     res2 *= 5;
  56   }
  57   for (int i = 0; i < GANGS; ++i)
  58     res *= 5;
  59
  60   acc_async_wait_all ();
  61
  62   assert (res == res1);
  63   assert (res == res2);
  64
  65   return 0;
  66 }