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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_shape.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! 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`