| /* { dg-additional-options "-Wopenacc-parallelism" } for testing/documenting |
| aspects of that functionality. */ |
| |
| /* Multiple reductions. */ |
| |
| #include <stdio.h> |
| #include <stdlib.h> |
| |
| #define ng 8 |
| #define nw 4 |
| #define vl 32 |
| |
| const int n = 100; |
| |
| #define DO_PRAGMA(x) _Pragma (#x) /* { dg-line pragma_loc } */ |
| |
| #define check_reduction(gwv_par, gwv_loop) \ |
| { \ |
| s1 = 2; s2 = 5; \ |
| DO_PRAGMA (acc parallel gwv_par copy (s1, s2)) /* { dg-line DO_PRAGMA_loc } */ \ |
| DO_PRAGMA (acc loop gwv_loop reduction (+:s1, s2)) \ |
| for (i = 0; i < n; i++) \ |
| { \ |
| s1 = s1 + 3; \ |
| s2 = s2 + 5; \ |
| } \ |
| \ |
| if (s1 != v1 && s2 != v2) \ |
| abort (); \ |
| } |
| |
| int |
| main (void) |
| { |
| int s1 = 2, s2 = 5, v1 = 2, v2 = 5; |
| int i; |
| |
| for (i = 0; i < n; i++) |
| { |
| v1 = v1 + 3; |
| v2 = v2 + 2; |
| } |
| |
| check_reduction (num_gangs (ng), gang); |
| |
| /* Nvptx targets require a vector_length or 32 in to allow spinlocks with |
| gangs. */ |
| check_reduction (num_workers (nw) vector_length (vl), worker); /* { dg-line check_reduction_loc } */ |
| /* { dg-warning "22:region is vector partitioned but does not contain vector partitioned code" "" { target *-*-* } pragma_loc } |
| { dg-note "1:in expansion of macro 'DO_PRAGMA'" "" { target *-*-* xfail offloading_enabled } DO_PRAGMA_loc } |
| { dg-note "3:in expansion of macro 'check_reduction'" "" { target *-*-* xfail offloading_enabled } check_reduction_loc } |
| TODO See PR101551 for 'offloading_enabled' XFAILs. */ |
| check_reduction (vector_length (vl), vector); |
| check_reduction (num_gangs (ng) num_workers (nw) vector_length (vl), gang |
| worker vector); |
| |
| return 0; |
| } |