URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [procarg.f90] - Rev 816
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