libgomp/testsuite/libgomp.fortran/lastprivate-conditional-10.f90

! { dg-do run }
! Fortran version of libgomp.c-c++-common/lastprivate-conditional-10.c

module m
  implicit none
  integer :: v = 0
  integer :: x = 0
contains
  integer function foo (a)
    integer, contiguous :: a(0:)
    integer i

    !$omp parallel do simd lastprivate (conditional: x) schedule(simd : static) if (simd : .false.)
    do i = 0, 127
      if (a(i) /= 0) x = a(i)
    end do
    foo = x
  end

  integer function bar (a, b)
    integer, contiguous :: a(0:), b(0:)
    integer :: i
    !$omp parallel
    !$omp do simd lastprivate (conditional: x, v) schedule(static, 16) simdlen (1)
    do i = 16, 127
      if (a(i) /= 0) x = a(i);
      if (b(i) /= 0) v = b(i) + 10;
    end do
    !$omp end parallel
    bar = x
  end

  integer function baz (a)
    integer, contiguous :: a(0:)
    integer :: i
    !$omp parallel do simd if (simd : .false.) lastprivate (conditional: x) schedule(simd : dynamic, 16)
    do i = 0, 127
      if (a(i) /= 0) x = a(i) + 5
    end do
    baz = x
  end
end module m

program main
  use m
  implicit none
  integer :: a(0:127), b(0:127), i
  do i = 0, 127
      if (mod(i, 11) == 2) then
         a(i) =  i + 10
      else
        a(i) = 0
      endif
      if (mod(i, 13) == 5) then
        b(i) = i * 2
      else
        b(i) = 0
      endif
  end do
  if (foo (a) /= 133) stop 1
  if (bar (b, a) /= 244 .or. v /= 143) stop 2
  if (baz (b) /= 249) stop 3
end