!学習目的：配列(文字型変数）
! ex110.f
      character s(2,2)*3
      s(1,1)='abc'
      s(1,2)='efg'
      s(2,1)='ABC'
      s(2,2)='EFG'
      write(*,*) s(1,1),s(1,2)
      write(*,*) s(2,1),s(2,2)

      write(*,*) s(1,1)(2:2) ! 変数の一部を取り出すこともできる
      write(*,*) s(2,1)(2:3)

      stop
      end