diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-07 17:07:18 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-07 17:07:18 +0000 |
| commit | 6791d0462ec373d7b82f37e8f4b62bed0af6f67d (patch) | |
| tree | 943fa2041e844e5ff1094cc4f3f0750a8f00a9a8 /gcc/testsuite/gfortran.dg | |
| parent | 79040bf778d5a34205a2d321bc3274cec602e23d (diff) | |
| download | gcc-6791d0462ec373d7b82f37e8f4b62bed0af6f67d.tar.gz | |
* 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
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ishft.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |