1 /* { dg-additional-options "-fdump-tree-gimple" } */ 2 /* complex reductions. */ 3 4 #define n 1000 5 6 int main(void)7main(void) 8 { 9 int i; 10 __complex__ double result, array[n]; 11 int lresult; 12 13 /* '+' reductions. */ 14 #pragma acc parallel 15 #pragma acc loop gang worker vector reduction (+:result) 16 for (i = 0; i < n; i++) 17 result += array[i]; 18 19 /* '*' reductions. */ 20 #pragma acc parallel 21 #pragma acc loop gang worker vector reduction (*:result) 22 for (i = 0; i < n; i++) 23 result *= array[i]; 24 25 /* '&&' reductions. */ 26 #pragma acc parallel 27 #pragma acc loop gang worker vector reduction (&&:lresult) 28 for (i = 0; i < n; i++) 29 lresult = lresult && (__real__(result) > __real__(array[i])); 30 31 /* '||' reductions. */ 32 #pragma acc parallel 33 #pragma acc loop gang worker vector reduction (||:lresult) 34 for (i = 0; i < n; i++) 35 lresult = lresult || (__real__(result) > __real__(array[i])); 36 37 return 0; 38 } 39 40 /* Check that default copy maps are generated for loop reductions. */ 41 /* { dg-final { scan-tree-dump-times "map\\(tofrom:result \\\[len: \[0-9\]+\\\]\\)" 2 "gimple" } } */ 42 /* { dg-final { scan-tree-dump-times "map\\(tofrom:lresult \\\[len: \[0-9\]+\\\]\\)" 2 "gimple" } } */ 43