diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-01-03 03:45:50 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-01-03 03:45:50 +0000 |
| commit | 131ffbe16bb6b2b7b8bb424fe13f37c64d86afc8 (patch) | |
| tree | 26cc1c78cdd1bdefb239a840b0d88147b0f40e0c | |
| parent | 33130b1d02a783f5e2fa211608f73d538b80dbcd (diff) | |
| download | ppe42-gcc-131ffbe16bb6b2b7b8bb424fe13f37c64d86afc8.tar.gz ppe42-gcc-131ffbe16bb6b2b7b8bb424fe13f37c64d86afc8.zip | |
2007-01-03 Steven G. Kargl <kargls@comcast.net>
* gfortran.dg/ibits.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120380 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ibits.f90 | 15 |
2 files changed, 20 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 53683622321..d9b05a8be4f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,8 @@ -2006-01-03 Zdenek Dvorak <dvorakz@suse.cz> +2007-01-03 Steven G. Kargl <kargls@comcast.net> + + * gfortran.dg/ibits.f90: New test. + +2007-01-03 Zdenek Dvorak <dvorakz@suse.cz> * 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 00000000000..e0144edb869 --- /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 + |
