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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_mvbits.f90] - Blame information for rev 378

Go to most recent revision | Details | Compare with Previous | View Log


! Test the MVBITS intrinsic subroutine
INTEGER*4 :: from, to, result
integer*8 :: from8, to8
 
DATA from / z'0003FFFC' /
DATA to / z'77760000' /
DATA result / z'7777FFFE' /
 
CALL mvbits(from, 2, 16, to, 1)
if (to /= result) CALL abort()
 
to8 = 0_8
from8 = b'1011'*2_8**32
call mvbits (from8, 33, 3, to8, 2)
if (to8 /= b'10100') call abort
end

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Test the MVBITS intrinsic subroutine`
2			`INTEGER*4 :: from, to, result`
3			`integer*8 :: from8, to8`
4
5			`DATA from / z'0003FFFC' /`
6			`DATA to / z'77760000' /`
7			`DATA result / z'7777FFFE' /`
8
9			`CALL mvbits(from, 2, 16, to, 1)`
10			`if (to /= result) CALL abort()`
11
12			`to8 = 0_8`
13			`from8 = b'1011'2_8*32`
14			`call mvbits (from8, 33, 3, to8, 2)`
15			`if (to8 /= b'10100') call abort`
16			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_mvbits.f90] - Blame information for rev 378