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

Rev 303	Rev 338
`! We were incorrectly mangling procedures in interfaces in modules`	`! We were incorrectly mangling procedures in interfaces in modules`

`module module_interface`	`module module_interface`
`interface`	`interface`
`subroutine foo ()`	`subroutine foo ()`
`end subroutine foo`	`end subroutine foo`
`end interface`	`end interface`
`contains`	`contains`
`subroutine cs`	`subroutine cs`
`end subroutine`	`end subroutine`

`subroutine cproc`	`subroutine cproc`
`interface`	`interface`
`subroutine bar ()`	`subroutine bar ()`
`end subroutine`	`end subroutine`
`end interface`	`end interface`
`call bar ()`	`call bar ()`
`call foo ()`	`call foo ()`
`call cs ()`	`call cs ()`
`end subroutine`	`end subroutine`
`end module`	`end module`

`subroutine foo ()`	`subroutine foo ()`
`end subroutine`	`end subroutine`

`subroutine bar ()`	`subroutine bar ()`
`end subroutine`	`end subroutine`

`program module_interface_proc`	`program module_interface_proc`
`use module_interface`	`use module_interface`
`interface`	`interface`
`subroutine bar ()`	`subroutine bar ()`
`end subroutine`	`end subroutine`
`end interface`	`end interface`

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