PROGRAM taulut
  IMPLICIT NONE

  CHARACTER(LEN=10) :: merkkijono
  CHARACTER, DIMENSION(10) :: merkkitaulukko
  CHARACTER(LEN=10), DIMENSION(5) :: merkkijonotaulukko

  merkkijono = 'Fortran'
  merkkitaulukko = '+'
  merkkijonotaulukko = 'Fortran'

  WRITE (*,*) merkkijono
  WRITE (*,*) merkkitaulukko
  WRITE (*,*) merkkijonotaulukko

  WRITE (*,*) merkkijono(2:4)
  WRITE (*,*) merkkitaulukko(2:4)
  WRITE (*,*) merkkijonotaulukko(1:2)(4:6)
END PROGRAM taulut