PROGRAM siirto
  IMPLICIT NONE
  CHARACTER(LEN=10) :: merkit = 'Raskas'

  WRITE (*,*) merkit
  merkit(3:6) = merkit(4:7)
  WRITE (*,*) merkit
END PROGRAM siirto