program p | |
implicit none | |
integer :: x(8) = 0 | |
call sub(x) | |
end | |
subroutine sub(x) | |
implicit none | |
integer i | |
integer :: x(8) | |
integer :: c(8) = [(11*i, i=1,8)] | |
call s | |
if (any (x /= c)) stop 1 | |
contains | |
subroutine s | |
integer :: i | |
!$omp parallel do reduction(+:x) | |
do i = 1, 8 | |
x(i) = c(i) | |
end do | |
end | |
end |