URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [transfer2.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`program test_convert`	`program test_convert`

`implicit none`	`implicit none`
`character(len=4) :: byte_string`	`character(len=4) :: byte_string`
`character(len=1),dimension(4) :: byte_array`	`character(len=1),dimension(4) :: byte_array`
`integer*4 :: value,value1,n,i`	`integer*4 :: value,value1,n,i`

`byte_string(1:1) = char(157)`	`byte_string(1:1) = char(157)`
`byte_string(2:2) = char(127)`	`byte_string(2:2) = char(127)`
`byte_string(3:3) = char(100)`	`byte_string(3:3) = char(100)`
`byte_string(4:4) = char(0)`	`byte_string(4:4) = char(0)`

`byte_array(1:4) = (/char(157),char(127),char(100),char(0)/)`	`byte_array(1:4) = (/char(157),char(127),char(100),char(0)/)`

`value = transfer(byte_string(1:4),value)`	`value = transfer(byte_string(1:4),value)`
`value1 = transfer(byte_array(1:4),value1)`	`value1 = transfer(byte_array(1:4),value1)`

`if (value .ne. value1) call abort()`	`if (value .ne. value1) call abort()`
`end program test_convert`	`end program test_convert`