gcc/testsuite/gfortran.dg/gomp/reduction2.f90

   1 ! { dg-do compile }
   2
   3 subroutine f1
   4   integer :: i
   5   i = 0
   6 !$omp parallel reduction (ior:i)
   7   i = ior (i, 3)
   8 !$omp end parallel
   9 !$omp parallel reduction (ior:i)
  10   i = ior (i, 16)
  11 !$omp end parallel
  12 end subroutine f1
  13 subroutine f2
  14   integer :: i
  15   i = ior (2, 4)
  16 !$omp parallel reduction (ior:i)
  17   i = ior (i, 3)
  18 !$omp end parallel
  19 end subroutine f2
  20 subroutine f3
  21   integer :: i
  22   i = 6
  23 !$omp parallel reduction (ior:i)
  24   i = ior (i, 3)
  25 !$omp end parallel
  26 end subroutine f3
  27 subroutine f4
  28   integer :: i, ior
  29   i = 6
  30 !$omp parallel reduction (ior:i)
  31   i = ior (i, 3)
  32 !$omp end parallel
  33 end subroutine f4