URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [contained_4.f90] - Rev 710
Go to most recent revision | Compare with Previous | Blame | View Log
! Check contained functions with the same name.
module contained_4
contains
subroutine foo1()
call bar()
contains
subroutine bar()
end subroutine bar
end subroutine foo1
subroutine foo2()
call bar()
contains
subroutine bar()
end subroutine bar
end subroutine foo2
end module contained_4
subroutine foo1()
call bar()
contains
subroutine bar()
end subroutine bar
end subroutine
subroutine foo2()
call bar()
contains
subroutine bar()
end subroutine bar
end subroutine foo2
Go to most recent revision | Compare with Previous | Blame | View Log