| program test_convert | |
| implicit none | |
| character(len=4) :: byte_string | |
| character(len=1),dimension(4) :: byte_array | |
| integer*4 :: value,value1,n,i | |
| byte_string(1:1) = char(157) | |
| byte_string(2:2) = char(127) | |
| byte_string(3:3) = char(100) | |
| byte_string(4:4) = char(0) | |
| byte_array(1:4) = (/char(157),char(127),char(100),char(0)/) | |
| value = transfer(byte_string(1:4),value) | |
| value1 = transfer(byte_array(1:4),value1) | |
| if (value .ne. value1) call abort() | |
| end program test_convert |