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