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/] [shape_2.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! Check that lbound() and ubound() work correctly for assumed shapes.
! { dg-do run }
program main
integer, dimension (40, 80) :: a = 1
call test (a)
contains
subroutine test (b)
integer, dimension (11:, -8:), target :: b
integer, dimension (:, :), pointer :: ptr
if (lbound (b, 1) .ne. 11) call abort
if (ubound (b, 1) .ne. 50) call abort
if (lbound (b, 2) .ne. -8) call abort
if (ubound (b, 2) .ne. 71) call abort
if (lbound (b (:, :), 1) .ne. 1) call abort
if (ubound (b (:, :), 1) .ne. 40) call abort
if (lbound (b (:, :), 2) .ne. 1) call abort
if (ubound (b (:, :), 2) .ne. 80) call abort
if (lbound (b (20:30:3, 40), 1) .ne. 1) call abort
if (ubound (b (20:30:3, 40), 1) .ne. 4) call abort
ptr => b
if (lbound (ptr, 1) .ne. 1) call abort
if (ubound (ptr, 1) .ne. 40) call abort
if (lbound (ptr, 2) .ne. 1) call abort
if (ubound (ptr, 2) .ne. 80) call abort
end subroutine test
end program main
Go to most recent revision | Compare with Previous | Blame | View Log