PROGRAM Sonsuz_Seri
!--------------------------------------------------------
! 21rg01.f95
! CPU_TIME kullanımı
!--------------------------------------------------------
IMPLICIT NONE
INTEGER :: n
REAL :: t1, t2
REAL :: s = 0.0


  CALL CPU_TIME(t1)

  DO n=1,1000000000
    s = s + (-1)**(n+1) / REAL(n)
  END DO

  CALL CPU_TIME(t2)

  PRINT *,"Hesaplanan deger: ",s
  PRINT *,"Hesaplama suresi: ",t2-t1," saniye."

END PROGRAM