mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-26 07:34:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

ibits.f90: New test.

Browse Source 
2007-01-03  Steven G. Kargl  <kargls@comcast.net>

	* gfortran.dg/ibits.f90: New test.

From-SVN: r120380
This commit is contained in:
Jerry DeLisle 2007-01-03 03:45:50 +00:00
parent b17a1b93fb
commit e1c463c4dd
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -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.

15
gcc/testsuite/gfortran.dg/ibits.f90 Normal file
View File

@ -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