libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-5.c

   1 /* { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting
   2    aspects of that functionality.  */
   3
   4 /* Multiple reductions.  */
   5
   6 #include <stdio.h>
   7 #include <stdlib.h>
   8
   9 #define ng 8
  10 #define nw 4
  11 #define vl 32
  12
  13 const int n = 100;
  14
  15 #define DO_PRAGMA(x) _Pragma (#x) /* { dg-line pragma_loc } */
  16
  17 #define check_reduction(gwv_par, gwv_loop)              \
  18   {                                                     \
  19   s1 = 2; s2 = 5;                                       \
  20 DO_PRAGMA (acc parallel gwv_par copy (s1, s2)) /* { dg-line DO_PRAGMA_loc } */ \
  21 DO_PRAGMA (acc loop gwv_loop reduction (+:s1, s2))      \
  22     for (i = 0; i < n; i++)                             \
  23       {                                                 \
  24          s1 = s1 + 3;                                   \
  25          s2 = s2 + 5;                                   \
  26       }                                                 \
  27                                                         \
  28     if (s1 != v1 && s2 != v2)                           \
  29       abort ();                                         \
  30   }
  31
  32 int
  33 main (void)
  34 {
  35   int s1 = 2, s2 = 5, v1 = 2, v2 = 5;
  36   int i;
  37
  38   for (i = 0; i < n; i++)
  39     {
  40       v1 = v1 + 3;
  41       v2 = v2 + 2;
  42     }
  43
  44   check_reduction (num_gangs (ng), gang);
  45
  46   /* Nvptx targets require a vector_length or 32 in to allow spinlocks with
  47      gangs.  */
  48   check_reduction (num_workers (nw) vector_length (vl), worker); /* { dg-line check_reduction_loc } */
  49   /* { dg-warning "22:region is vector partitioned but does not contain vector partitioned code" "" { target *-*-* } pragma_loc }
  50      { dg-note "1:in expansion of macro 'DO_PRAGMA'" "" { target *-*-* xfail offloading_enabled } DO_PRAGMA_loc }
  51      { dg-note "3:in expansion of macro 'check_reduction'" "" { target *-*-* xfail offloading_enabled } check_reduction_loc }
  52      TODO See PR101551 for 'offloading_enabled' XFAILs.  */
  53   check_reduction (vector_length (vl), vector);
  54   check_reduction (num_gangs (ng) num_workers (nw) vector_length (vl), gang
  55                    worker vector);
  56
  57   return 0;
  58 }