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 | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 index c9fbe782703..3437e9f0c9d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 @@ -1,6 +1,6 @@ ! Test the MVBITS intrinsic subroutine INTEGER*4 :: from, to, result -integer*8 :: to8 +integer*8 :: from8, to8 DATA from / z'0003FFFC' / DATA to / z'77760000' / @@ -9,7 +9,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 "" "" } +to8 = 0_8 +from8 = b'1011'*2_8**32 +call mvbits (from8, 33, 3, to8, 2) +if (to8 /= b'10100') call abort end |