OSDN Git Service

8aaaf09dd26aa3f4fe19b07cb4e3db9608e82d0b
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.fortran-torture / execute / intrinsic_mvbits.f90
1 ! Test the MVBITS intrinsic subroutine
2 INTEGER*4 :: from, to, result
3
4 DATA from / z'0003FFFC' /
5 DATA to / z'77760000' /
6 DATA result / z'7777FFFE' /
7
8 CALL mvbits(from, 2, 16, to, 1)
9 if (to /= result) CALL abort()
10 end