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

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

END PROGRAM