diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 index 8aaaf09dd26..c9fbe782703 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 @@ -1,5 +1,6 @@ ! Test the MVBITS intrinsic subroutine INTEGER*4 :: from, to, result +integer*8 :: to8 DATA from / z'0003FFFC' / DATA to / z'77760000' / @@ -7,4 +8,8 @@ DATA result / z'7777FFFE' / CALL mvbits(from, 2, 16, to, 1) if (to /= result) CALL abort() + +to8 = 0 +call mvbits (b'1011'_8*2_8**32, 33, 3, to8, 2) ! { dg-warning "" "" } +if (to8 /= b'10100'_8) call abort ! { dg-warning "" "" } end |