OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [lrshift_1.f90] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do run }
2 
! { dg-options "-std=gnu -w" }
3 
! { dg-additional-sources lrshift_1.c }
4 
program test_rshift_lshift
5 
  implicit none
6 
  integer :: i(15), j, n
7 
  integer, external :: c_lshift, c_rshift
8 
 
9 
  i = (/ -huge(i), -huge(i)/2, -129, -128, -127, -2, -1, 0, &
10 
         1, 2, 127, 128, 129, huge(i)/2, huge(i) /)
11 
 
12 
  do n = 1, size(i)
13 
    do j = -30, 30
14 
      if (lshift(i(n),j) /= c_lshift(i(n),j)) call abort
15 
      if (rshift(i(n),j) /= c_rshift(i(n),j)) call abort
16 
    end do
17 
  end do
18 
end program test_rshift_lshift

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.