Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/pr27395-2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! PR fortran/27395 ! { dg-do run } program pr27395_2 implicit none integer, parameter :: n=10,m=1001 integer :: i call foo(n,m) end program pr27395_2 subroutine foo(n,m) use omp_lib, only : omp_get_thread_num implicit none integer, intent(in) :: n,m integer :: i,j integer, dimension(n) :: sumarray sumarray(:)=0 !$OMP PARALLEL DEFAULT(shared) NUM_THREADS(4) !$OMP DO PRIVATE(j,i), REDUCTION(+:sumarray) do j=1,m do i=1,n sumarray(i)=sumarray(i)+i end do end do !$OMP END DO !$OMP END PARALLEL do i=1,n if (sumarray(i).ne.m*i) stop 1 end do end subroutine foo