diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-19 01:07:41 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-19 01:07:41 +0000 |
| commit | 0470f5730bb47ea53e379beda804f6eb8c57f735 (patch) | |
| tree | 08abcb5791d7f2dbcc9c43029fe200a33f90c2f3 | |
| parent | c152efbb10508ad7714aa5e14c89bcfc7f0d1697 (diff) | |
| download | gcc-0470f5730bb47ea53e379beda804f6eb8c57f735.zip gcc-0470f5730bb47ea53e379beda804f6eb8c57f735.tar.gz gcc-0470f5730bb47ea53e379beda804f6eb8c57f735.tar.bz2 | |
re PR fortran/31964 ([4.2, 4.1 only]ishftc fails with certain thrid argument)
2007-05-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/31964
* gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update.
From-SVN: r124847
| -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 |