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

Rev 303	Rev 384
`! Program to test dummy procedures`	`! Program to test dummy procedures`
`subroutine bar()`	`subroutine bar()`
`end subroutine`	`end subroutine`

`subroutine foo2(p)`	`subroutine foo2(p)`
`external p`	`external p`

`call p()`	`call p()`
`end subroutine`	`end subroutine`

`subroutine foo(p)`	`subroutine foo(p)`
`external p`	`external p`
`! We never actually discover if this is a function or a subroutine`	`! We never actually discover if this is a function or a subroutine`
`call foo2(p)`	`call foo2(p)`
`end subroutine`	`end subroutine`

`program intrinsic_minmax`	`program intrinsic_minmax`
`implicit none`	`implicit none`
`external bar`	`external bar`

`call foo(bar)`	`call foo(bar)`
`end program`	`end program`