1  /* { dg-additional-options "-fdump-tree-gimple" } */
       2  /* float reductions.  */
       3  
       4  #define n 1000
       5  
       6  int
       7  main(void)
       8  {
       9    int i;
      10    float 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    /* 'max' reductions.  */
      26  #pragma acc parallel
      27  #pragma acc loop gang worker vector reduction (max:result)
      28    for (i = 0; i < n; i++)
      29      result = result > array[i] ? result : array[i];
      30  
      31    /* 'min' reductions.  */
      32  #pragma acc parallel
      33  #pragma acc loop gang worker vector reduction (min:result)
      34    for (i = 0; i < n; i++)
      35      result = result < array[i] ? result : array[i];
      36  
      37    /* '&&' reductions.  */
      38  #pragma acc parallel
      39  #pragma acc loop gang worker vector reduction (&&:lresult)
      40    for (i = 0; i < n; i++)
      41      lresult = lresult && (result > array[i]);
      42  
      43    /* '||' reductions.  */
      44  #pragma acc parallel
      45  #pragma acc loop gang worker vector reduction (||:lresult)
      46    for (i = 0; i < n; i++)
      47      lresult = lresult || (result > array[i]);
      48  
      49    return 0;
      50  }
      51  
      52  /* Check that default copy maps are generated for loop reductions.  */
      53  /* { dg-final { scan-tree-dump-times "map\\(tofrom:result \\\[len: \[0-9\]+\\\]\\)" 4 "gimple" } } */
      54  /* { dg-final { scan-tree-dump-times "map\\(tofrom:lresult \\\[len: \[0-9\]+\\\]\\)" 2 "gimple" } } */