20 lines
419 B
Fortran
20 lines
419 B
Fortran
! PR fortran/29629
|
|
! { dg-do run }
|
|
|
|
program pr29629
|
|
integer :: n
|
|
n = 10000
|
|
if (any (func(n).ne.10000)) stop 1
|
|
contains
|
|
function func(n)
|
|
integer, intent(in) :: n
|
|
integer, dimension(n) :: func
|
|
integer :: k
|
|
func = 0
|
|
!$omp parallel do private(k), reduction(+:func), num_threads(4)
|
|
do k = 1, n
|
|
func = func + 1
|
|
end do
|
|
!$omp end parallel do
|
|
end function
|
|
end program
|