PROGRAM KomSat
!-------------------------------------------------------
! 24prg01.f95
! Komut satırındaki değerlerin yazdırılması.
!-------------------------------------------------------
IMPLICIT NONE
CHARACTER(LEN=200) :: Komut
CHARACTER(LEN=10)  :: Arguman
INTEGER :: I

 ! Bütün komutu al ve yazdır
 CALL GET_COMMAND(Komut)
 PRINT *, "Komut : ",TRIM(Komut)

 ! Komut satırı argümanlarını yazdır
 DO I = 1, COMMAND_ARGUMENT_COUNT()

  CALL GET_COMMAND_ARGUMENT(I,Arguman)
  PRINT *, "Arguman ", I, " : ",TRIM(Arguman)

 END DO 

END PROGRAM