From 6791d0462ec373d7b82f37e8f4b62bed0af6f67d Mon Sep 17 00:00:00 2001 From: tobi Date: Thu, 7 Oct 2004 17:07:18 +0000 Subject: [PATCH] * gfortran.fortran-torture/execute/intrinsic_mvbits.f90, gfortran.dg/ishft.f90: Add more tests. Add dg-warning in followup commit. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88695 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 3 ++- gcc/testsuite/gfortran.dg/ishft.f90 | 2 +- gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 | 4 ++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9cb3d144913..c3827ea417a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,7 +1,8 @@ 2004-10-07 Tobias Schlueter * gfortran.fortran-torture/execute/intrinsic_mvbits.f90, - gfortran.dg/ishft.f90: Add more tests. + gfortran.dg/ishft.f90: Add more tests. Add dg-warning in followup + commit. 2004-10-07 Andrew Pinski diff --git a/gcc/testsuite/gfortran.dg/ishft.f90 b/gcc/testsuite/gfortran.dg/ishft.f90 index f7800bd08b8..d8ca3a7de73 100644 --- a/gcc/testsuite/gfortran.dg/ishft.f90 +++ b/gcc/testsuite/gfortran.dg/ishft.f90 @@ -25,7 +25,7 @@ if (ishft (1_8, 0) /= 1) call abort if (ishft (1_8, 1) /= 2) call abort if (ishft (3_8, 1) /= 6) call abort if (ishft (-1_8, 1) /= -2) call abort -if (ishft (-1_8, -60) /= z'F'_8) call abort +if (ishft (-1_8, -60) /= z'F'_8) call abort ! { dg-warning "" "" } if (ishftc (1_1, 0) /= 1) call abort if (ishftc (1_1, 1) /= 2) call abort diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 index 086589a1d51..c9fbe782703 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90 @@ -10,6 +10,6 @@ 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) -if (to8 /= b'10100'_8) call abort +call mvbits (b'1011'_8*2_8**32, 33, 3, to8, 2) ! { dg-warning "" "" } +if (to8 /= b'10100'_8) call abort ! { dg-warning "" "" } end -- 2.11.0