PROGRAM Sonsuz_Seri
!--------------------------------------------------------
! 21rg02.f95
! DATE_AND_TIME kullanımı
!--------------------------------------------------------
IMPLICIT NONE
INTEGER :: V(8)

  CALL DATE_AND_TIME(VALUES=V)

  PRINT *,"Tarih= ", V(3), V(2), V(1)

  PRINT 10,V(5:7)
  10 FORMAT("Saat = ",I2.2,":",I2.2,":",I2.2)

END PROGRAM