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.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bound_3.f90] - Rev 329
Go to most recent revision | Compare with Previous | Blame | 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
Go to most recent revision | Compare with Previous | Blame | View Log