URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lrshift_1.f90] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | 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

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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lrshift_1.f90] - Blame information for rev 774