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