PROGRAM koe
  IMPLICIT NONE
  CHARACTER(LEN=10) :: merkkijono
  
  merkkijono = 'Fortran'
  WRITE (*,*) merkkijono(2:4)
  WRITE (*,*) merkkijono(6:6)
END PROGRAM koe