Fortran code to convert chars to uppercase.

to_uppercase.f95

!****************************************************
! 英小文字->英大文字 変換
! : 入力文字列の英小文字を全て英大文字に変換して出力する
!
! date          name            version
! 2017.05.14    mk-mode.com     1.00 新規作成
!
! Copyright(C) 2017 mk-mode.com All Rights Reserved.
!****************************************************
!
program to_uppercase
  implicit none
  integer i
  character(len=100) line
  print *, "英文を入力してください(100文字超は切り捨て):"
  read '(a)', line
  do i = 1, len_trim(line)
    if (line(i:i) >= 'a' .and. line(i:i) <= 'z') then
      line(i:i) = char(ichar(line(i:i)) - 32)
    end if
  end do
  print '(a)', trim(line)
end program to_uppercase