URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [procarg.f90] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
! Pogram to test
subroutine myp (a)
implicit none
integer a
if (a .ne. 42) call abort
end subroutine
subroutine test2 (p)
implicit none
external p
call p(42)
end subroutine
subroutine test (p)
implicit none
external p, test2
call p(42)
call test2(p)
end subroutine
program arrayio
implicit none
external test, myp
call test (myp)
end program
Go to most recent revision | Compare with Previous | Blame | View Log