Pi OMP Fortran

program pi_singlethread
    implicit none
    integer limit
    integer i
    real :: pi=0

    limit = 20000000

    !$OMP PARALLEL      !inicio da paralelizacao do codigo

    !$OMP DO REDUCTION (+:pi)   !paralelizar o do
    do i=0, limit
        pi = pi + 4.0 / (4.0*i + 1.0);
        pi = pi - 4.0 / (4.0*i + 3.0);
    enddo
    !$OMP END DO

    !$OMP END PARALLEL

    print*, pi

end