blob: 116166c48ee0aa61186c6c6b402d687857c98ca2 [file] [log] [blame]
 ! { 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