PROGRAM sijoitus
  IMPLICIT NONE
  CHARACTER(LEN=10) :: merkit = 'Suutari'

  WRITE (*,*) merkit
  merkit(1:4) = 'Se'
  WRITE (*,*) merkit
  merkit(4:5) = 'Jeeves'
  WRITE (*,*) merkit
END PROGRAM sijoitus