PROGRAM Rastgele
!----------------------------------------------------
! 22prg02.f95
! [0,1] aralığında 5 adet rastgele sayı
!----------------------------------------------------
IMPLICIT NONE
REAL :: R
INTEGER :: I

  ! kümenin ilk değeri bilgisayrın 
  ! saatinden alınıyor...
  CALL RANDOM_SEED()

  DO I = 1, 5
    CALL RANDOM_NUMBER(R)
    PRINT *,R
  END DO

END PROGRAM