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/] [contained.f90] - Diff between revs 303 and 338

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

Rev 303	Rev 338
`program contained`	`program contained`
`implicit none`	`implicit none`
`integer i`	`integer i`

`i = 0;`	`i = 0;`
`call testproc (40)`	`call testproc (40)`
`if (i .ne. 42) call abort`	`if (i .ne. 42) call abort`
`contains`	`contains`
`subroutine testproc (p)`	`subroutine testproc (p)`
`implicit none`	`implicit none`
`integer p`	`integer p`

`if (p .ne. 40) call abort`	`if (p .ne. 40) call abort`
`i = p + 2`	`i = p + 2`
`end subroutine`	`end subroutine`
`end program`	`end program`

powered by: WebSVN 2.1.0

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