From 0470f5730bb47ea53e379beda804f6eb8c57f735 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 19 May 2007 01:07:41 +0000 Subject: [PATCH] re PR fortran/31964 ([4.2, 4.1 only]ishftc fails with certain thrid argument) 2007-05-18 Jerry DeLisle PR libfortran/31964 * gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update. From-SVN: r124847 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.fortran-torture/execute/intrinsic_bitops.f90 | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + PR libfortran/31964 + * gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update. + 2007-05-18 Andrew Pinski * 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 -- 2.30.2