re PR fortran/31964 ([4.2, 4.1 only]ishftc fails with certain thrid argument)

2007-05-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/31964
	* gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update.

From-SVN: r125017

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e71356e5f4627e6cbdb46b389ab923e3e49c6b0b..4891eb00fd8ec193f9db5d8c7f390bb709b05a09 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/31964
+       * gfortran.fortran-torture/execute/intrinsic_bitops.f90: Update.
+
 2007-05-17  Eric Botcazou  <ebotcazou@libertysurf.fr>
 
        * gcc.c-torture/execute/20070517-1.c: New test.

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_bitops.f90
index 95ff44c999ea1c7e0b3f9472f7089108909cf4ad..7dcda255b96ce60e028af71fb17ebf90ae2c5d48 100644 (file)
--- 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