1program test_convert 2 3 implicit none 4 character(len=4) :: byte_string 5 character(len=1),dimension(4) :: byte_array 6 integer*4 :: value,value1,n,i 7 8 byte_string(1:1) = char(157) 9 byte_string(2:2) = char(127) 10 byte_string(3:3) = char(100) 11 byte_string(4:4) = char(0) 12 13 byte_array(1:4) = (/char(157),char(127),char(100),char(0)/) 14 15 value = transfer(byte_string(1:4),value) 16 value1 = transfer(byte_array(1:4),value1) 17 18 if (value .ne. value1) STOP 1 19end program test_convert 20