OpenCores
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] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 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.