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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
!
  call s(1,0)
  call s(2,0)
  call s(3,0)
  call s(4,0)
  call s(5,1)
  call s(6,2)
  call s(7,3)
contains
  subroutine s(n,m)
    implicit none
    integer n, m
    real x(10)
    if (any (lbound(x(5:n)) /= 1)) call abort
    if (lbound(x(5:n),1) /= 1) call abort
    if (any (ubound(x(5:n)) /= m)) call abort
    if (ubound(x(5:n),1) /= m) call abort
  end subroutine
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`call s(1,0)`
4			`call s(2,0)`
5			`call s(3,0)`
6			`call s(4,0)`
7			`call s(5,1)`
8			`call s(6,2)`
9			`call s(7,3)`
10			`contains`
11			`subroutine s(n,m)`
12			`implicit none`
13			`integer n, m`
14			`real x(10)`
15			`if (any (lbound(x(5:n)) /= 1)) call abort`
16			`if (lbound(x(5:n),1) /= 1) call abort`
17			`if (any (ubound(x(5:n)) /= m)) call abort`
18			`if (ubound(x(5:n),1) /= m) call abort`
19			`end subroutine`
20			`end program`

Browse

Tools

Subversion Repositories openrisc

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