program simpleDo
  implicit none
  integer,parameter :: N = 100
  integer i
  double precision x(N)
!$omp parallel
!$omp do
  do i=1, N
    x(i) = dble(i)/N
  end do
!$omp end do
!$omp end parallel
  print *, sum(x)
end program