diff options
| -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 6a7ea86..7ec3848 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 95ff44c..7dcda25 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 |