| 123456789101112131415161718192021 |
- ! PR fortran/29629
- ! { dg-do run }
- program pr29629
- integer :: n
- n = 10000
- if (any (func(n).ne.10000)) call abort
- 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
|
