OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Schlüter 2004-10-07 19:07:18 +02:00 committed by Tobias Schlüter
parent 21213b4c93
commit 9e941b4a5d
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/testsuite/ChangeLog
View File

@ -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>

2
gcc/testsuite/gfortran.dg/ishft.f90
View File

@ -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

4
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_mvbits.f90
View File

@ -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