URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_shape.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`! Program to test the shape intrinsic`	`! Program to test the shape intrinsic`
`program testbounds`	`program testbounds`
`implicit none`	`implicit none`
`real, dimension(:, :), allocatable :: a`	`real, dimension(:, :), allocatable :: a`
`integer, dimension(2) :: j`	`integer, dimension(2) :: j`
`integer i`	`integer i`

`allocate (a(3:8, 6:7))`	`allocate (a(3:8, 6:7))`

`j = shape (a);`	`j = shape (a);`
`if (any (j .ne. (/ 6, 2 /))) call abort`	`if (any (j .ne. (/ 6, 2 /))) call abort`

`call test(a)`	`call test(a)`
`contains`	`contains`

`subroutine test (a)`	`subroutine test (a)`
`real, dimension (1:, 1:) :: a`	`real, dimension (1:, 1:) :: a`

`if (any (shape (a) .ne. (/ 6, 2 /))) call abort`	`if (any (shape (a) .ne. (/ 6, 2 /))) call abort`
`end subroutine`	`end subroutine`
`end program`	`end program`