URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [actual.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


module modull
 
contains
 
function fun( a )
  real, intent(in) :: a
  real :: fun
  fun = a
end function fun
 
end module modull
 
 
 
program t5
 
use modull
 
real :: a, b
 
b = foo( fun, a )
 
contains
 
function foo( f, a )
  real, intent(in) :: a
  interface
    function f( x )
      real, intent(in) :: x
      real :: f
    end function f
  end interface
  real :: foo
 
  foo = f( a )
end function foo
 
end program t5

Line No.	Rev	Author	Line
1	695	jeremybenn	`module modull`
2
3			`contains`
4
5			`function fun( a )`
6			`real, intent(in) :: a`
7			`real :: fun`
8			`fun = a`
9			`end function fun`
10
11			`end module modull`
12
13
14
15			`program t5`
16
17			`use modull`
18
19			`real :: a, b`
20
21			`b = foo( fun, a )`
22
23			`contains`
24
25			`function foo( f, a )`
26			`real, intent(in) :: a`
27			`interface`
28			`function f( x )`
29			`real, intent(in) :: x`
30			`real :: f`
31			`end function f`
32			`end interface`
33			`real :: foo`
34
35			`foo = f( a )`
36			`end function foo`
37
38			`end program t5`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [actual.f90] - Blame information for rev 801