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

Details | Compare with Previous | View Log


! Program to test dummy procedures
subroutine bar()
end subroutine
 
subroutine foo2(p)
  external p
 
  call p()
end subroutine
 
subroutine foo(p)
  external p
  ! We never actually discover if this is a function or a subroutine
  call foo2(p)
end subroutine
 
program intrinsic_minmax
   implicit none
   external bar
 
   call foo(bar)
end program
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Program to test dummy procedures`
2			`subroutine bar()`
3			`end subroutine`
4
5			`subroutine foo2(p)`
6			`external p`
7
8			`call p()`
9			`end subroutine`
10
11			`subroutine foo(p)`
12			`external p`
13			`! We never actually discover if this is a function or a subroutine`
14			`call foo2(p)`
15			`end subroutine`
16
17			`program intrinsic_minmax`
18			`implicit none`
19			`external bar`
20
21			`call foo(bar)`
22			`end program`
23

Browse

Tools

Subversion Repositories openrisc_me

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