intrinsic_mvbits.f90, ishft.f90: Add more tests.

* gfortran.fortran-torture/execute/intrinsic_mvbits.f90,
gfortran.dg/ishft.f90: Add more tests. Add dg-warning in followup
commit.

From-SVN: r88695

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 9cb3d144913f78b034d8cb47c94b7931291f2bf8..c3827ea417a69fd8e30b6e6b99ee0de5097636cd 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,7 +1,8 @@
 2004-10-07  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        * 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  <pinskia@physics.uc.edu>
 

diff --git a/gcc/testsuite/gfortran.dg/ishft.f90 b/gcc/testsuite/gfortran.dg/ishft.f90
index f7800bd08b800dc99bc0c44c261695bb737759ca..d8ca3a7de731060fbe8cb49cc0e5fd0175df4b45 100644 (file)
--- 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 086589a1d513721ad6e7a257eb89eb86da3239e4..c9fbe7827031874cbfba5fc9a9b36188a9f94cff 100644 (file)
--- 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