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

Rev 303	Rev 338
`! Program to test compilation of subroutines following the main program`	`! Program to test compilation of subroutines following the main program`
`program mainsub`	`program mainsub`
`implicit none`	`implicit none`
`integer i`	`integer i`
`external test`	`external test`

`i = 0`	`i = 0`
`call test (i)`	`call test (i)`
`if (i .ne. 42) call abort`	`if (i .ne. 42) call abort`
`end program`	`end program`

`subroutine test (p)`	`subroutine test (p)`
`implicit none`	`implicit none`
`integer p`	`integer p`

`p = 42`	`p = 42`
`end subroutine`	`end subroutine`