URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [lrshift_1.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! { dg-options "-std=gnu -w" }
! { dg-additional-sources lrshift_1.c }
program test_rshift_lshift
implicit none
integer :: i(15), j, n
integer, external :: c_lshift, c_rshift
i = (/ -huge(i), -huge(i)/2, -129, -128, -127, -2, -1, 0, &
1, 2, 127, 128, 129, huge(i)/2, huge(i) /)
do n = 1, size(i)
do j = -30, 30
if (lshift(i(n),j) /= c_lshift(i(n),j)) call abort
if (rshift(i(n),j) /= c_rshift(i(n),j)) call abort
end do
end do
end program test_rshift_lshift
Go to most recent revision | Compare with Previous | Blame | View Log