diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-19 01:07:41 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-19 01:07:41 +0000 |
| commit | 7955185953f3af724d6ffe2020695af17517cd59 (patch) | |
| tree | 08abcb5791d7f2dbcc9c43029fe200a33f90c2f3 | |
| parent | 7bbd7ad5d16a249bdaf58fcf7ea8294b42127f19 (diff) | |
| download | gcc-7955185953f3af724d6ffe2020695af17517cd59.tar.gz | |
2007-05-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/31964
* gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124847 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6a7ea862796..7ec3848e521 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-05-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/31964 + * gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update. + 2007-05-18 Andrew Pinski <andrew_pinski@playstation.sony.com> * gcc.dg/tree-ssa/forwprop-1.c: New testcase. diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 index 95ff44c999e..7dcda255b96 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 @@ -8,7 +8,8 @@ program intrinsic_bitops i = 2 j = 3 k = 12 - + a = 5 + if (.not. btest (i, o+1)) call abort if (btest (i, o+2)) call abort if (iand (i, j) .ne. 2) call abort @@ -26,4 +27,6 @@ program intrinsic_bitops if (ishftc (k, o-30) .ne. 48) call abort if (ishftc (k, o+1, o+3) .ne. 9) call abort if (not (i) .ne. -3) call abort + if (ishftc (a, 1, bit_size(a)) .ne. 10) call abort + if (ishftc (1, 1, 32) .ne. 2) call abort end program |