22 lines
357 B
Fortran
22 lines
357 B
Fortran
|
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
|