program hash_value
    implicit none

    character(len=50) :: gakuseki, name
    integer :: i, hash

    gakuseki = "202401376"
    name = "yamada"

    hash = 0

    do i = 1, len_trim(gakuseki)
        hash = hash + ichar(gakuseki(i:i))
    end do

    do i = 1, len_trim(name)
        hash = hash + ichar(name(i:i))
    end do

    print *, "ハッシュ値 =", hash

end program hash_value