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/] [mainsub.f90] - Blame information for rev 303

Details | Compare with Previous | View Log


! Program to test compilation of subroutines following the main program
program mainsub
   implicit none
   integer i
   external test
 
   i = 0
   call test (i)
   if (i .ne. 42) call abort
end program
 
subroutine test (p)
   implicit none
   integer p
 
   p = 42
end subroutine

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Program to test compilation of subroutines following the main program`
2			`program mainsub`
3			`implicit none`
4			`integer i`
5			`external test`
6
7			`i = 0`
8			`call test (i)`
9			`if (i .ne. 42) call abort`
10			`end program`
11
12			`subroutine test (p)`
13			`implicit none`
14			`integer p`
15
16			`p = 42`
17			`end subroutine`

Browse

Tools

Subversion Repositories openrisc_me

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