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 308

Go to most recent revision | Details | Compare with Previous | 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

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`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [procarg.f90] - Blame information for rev 308