● 整数の場合
例えばマイナス符号を含めて５文字以内の整数なら
      WRITE(moji,100) seisuu
  100 FORMAT(I5)
とコーディングして型変換します。

【プログラム例１】

      PROGRAM main
      INTEGER seisuu
      CHARACTER*5 moji
      CALL int2char(seisuu,moji)
      STOP
      END

      SUBROUTINE int2char(seisuu,moji)
      INTEGER seisuu
      CHARACTER*5 moji
      WRITE(*,*) 'マイナス符号を含めて５文字以内の整数をキー入力せよ'
      READ(*,*) seisuu
      WRITE(moji,100) seisuu
  100 FORMAT(I5)
      WRITE(*,*) 'あなたが入力した整数は',moji,'です'
      RETURN
      END