OpenCores
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] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! Pogram to test
2
subroutine myp (a)
3
   implicit none
4
   integer a
5
 
6
   if (a .ne. 42) call abort
7
end subroutine
8
 
9
subroutine test2 (p)
10
   implicit none
11
   external p
12
 
13
   call p(42)
14
end subroutine
15
 
16
subroutine test (p)
17
   implicit none
18
   external p, test2
19
 
20
   call p(42)
21
   call test2(p)
22
end subroutine
23
 
24
program arrayio
25
   implicit none
26
   external test, myp
27
 
28
   call test (myp)
29
end program

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.