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

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

Rev 303	Rev 384
`program alt_return`	`program alt_return`
`implicit none`	`implicit none`

`call myproc (1, *10, 42)`	`call myproc (1, *10, 42)`
`20 continue`	`20 continue`
`call abort ()`	`call abort ()`
`10 continue`	`10 continue`
`call myproc(2, *20, 42)`	`call myproc(2, *20, 42)`
`call myproc(3, *20, 42)`	`call myproc(3, *20, 42)`
`contains`	`contains`
`subroutine myproc(n, *, i)`	`subroutine myproc(n, *, i)`
`integer n, i`	`integer n, i`
`if (i .ne. 42) call abort ()`	`if (i .ne. 42) call abort ()`
`if (n .eq. 1) return 1`	`if (n .eq. 1) return 1`
`if (n .eq. 2) return`	`if (n .eq. 2) return`
`end subroutine`	`end subroutine`
`end program alt_return`	`end program alt_return`

powered by: WebSVN 2.1.0

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