diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-07 19:07:18 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-07 19:07:18 +0200 |
| commit | 9e941b4a5dfb748b749a7ffdceb2e682e3a554d2 (patch) | |
| tree | 943fa2041e844e5ff1094cc4f3f0750a8f00a9a8 /gcc | |
| parent | 21213b4c933bcd5b84e5682ae15a1239add65685 (diff) | |
| download | gcc-9e941b4a5dfb748b749a7ffdceb2e682e3a554d2.zip gcc-9e941b4a5dfb748b749a7ffdceb2e682e3a554d2.tar.gz gcc-9e941b4a5dfb748b749a7ffdceb2e682e3a554d2.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ishft.f90 | 2 | ||||
| -rw-r--r-- | 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 9cb3d14..c3827ea 100644 --- 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 f7800bd..d8ca3a7 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 086589a..c9fbe78 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 |