program substring
  implicit none
  character(len=5) a
  a = "abcde"
  print *, a(1:3)     ! 1文字目から3文字目が出力されます
  print *, a(3:5)     ! 3文字目から5文字目が出力されます
end program substring