gcc/testsuite/gfortran.fortran-torture/execute/transfer2.f90

   1 program 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)  call abort()
  19 end program test_convert