1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module stdlib_hash_32bit_water_transfer_04
use iso_fortran_env, only: int16, int8, int32, int64
contains
pure module function int8_water_hash( key ) result(hash_code)
integer(int32) :: hash_code
integer(int8), intent(in) :: key(:)
hash_code = sum(key)
end function int8_water_hash
subroutine int16_water_hash( key )
integer(int16), intent(in) :: key(:)
print *, transfer( key, 0_int8, size(key, kind=int64) )
print *, int8_water_hash( transfer( key, 0_int8, size(key, kind=int64) ) )
! TODO: values diverge with GFortran, PR intends to fix code generation error
end subroutine int16_water_hash
end module stdlib_hash_32bit_water_transfer_04
program transfer_04
use stdlib_hash_32bit_water_transfer_04
integer(int16) :: key(10)
key = 9
call int16_water_hash(key)
end program
|
