OpenCores

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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [partparm.f90] - Diff between revs 303 and 338

Only display areas with differences | Details | Blame | View Log

Rev 303	Rev 338
`! Program to test`	`! Program to test`
`subroutine test (p)`	`subroutine test (p)`
`integer, dimension (3) :: p`	`integer, dimension (3) :: p`

`if (any (p .ne. (/ 2, 4, 6/))) call abort`	`if (any (p .ne. (/ 2, 4, 6/))) call abort`
`end subroutine`	`end subroutine`

`program partparm`	`program partparm`
`implicit none`	`implicit none`
`integer, dimension (2, 3) :: a`	`integer, dimension (2, 3) :: a`
`external test`	`external test`

`a = reshape ((/ 1, 2, 3, 4, 5, 6/), (/ 2, 3/))`	`a = reshape ((/ 1, 2, 3, 4, 5, 6/), (/ 2, 3/))`
`call test (a(2, :))`	`call test (a(2, :))`
`end program`	`end program`

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.