From 131ffbe16bb6b2b7b8bb424fe13f37c64d86afc8 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Wed, 3 Jan 2007 03:45:50 +0000 Subject: [PATCH] 2007-01-03 Steven G. Kargl * gfortran.dg/ibits.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120380 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 6 +++++- gcc/testsuite/gfortran.dg/ibits.f90 | 15 +++++++++++++++ 2 files changed, 20 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/ibits.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5368362..d9b05a8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,8 @@ -2006-01-03 Zdenek Dvorak +2007-01-03 Steven G. Kargl + + * gfortran.dg/ibits.f90: New test. + +2007-01-03 Zdenek Dvorak * gcc.dg/tree-ssa/update-unroll-1.c: New test. * gcc.dg/tree-ssa/update-unswitch-1.c: New test. diff --git a/gcc/testsuite/gfortran.dg/ibits.f90 b/gcc/testsuite/gfortran.dg/ibits.f90 new file mode 100644 index 0000000..e0144ed --- /dev/null +++ b/gcc/testsuite/gfortran.dg/ibits.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! Test that the mask is properly converted to the kind type of j in ibits. +program ibits_test + implicit none + integer(8), parameter :: n = z'00000000FFFFFFFF' + integer(8) i,j,k,m + j = 1 + do i=1,70 + j = ishft(j,1) + 1 + k = ibits(j, 0, 32) + m = iand(j,n) + if (k /= m) call abort + end do +end program ibits_test + -- 2.7.4