blob: 871c081490082ae128931e61a18d87e32753619e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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
|
