!学習目的：文字型変数の書式
! ex108.f
      character s*5

      s='abcde'
      write(*,'(a1)') s !先頭から１カラムまで
      write(*,'(a2)') s !先頭から２カラムまで
      write(*,'(a3)') s
      write(*,'(a4)') s
      write(*,'(a5)') s
      write(*,'(a)') s !カラム数を省略した場合，ｓの定義した文字数文

      stop
      end