Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.fortran-torture/execute/transfer2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
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) STOP 1 end program test_convert