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
| module ops_module
|
| abstract interface
| subroutine op(x, y, z)
| integer, intent(in) :: x, y
| integer, intent(out) :: z
| end subroutine
| end interface
|
| contains
|
| subroutine foo(x, y, r1, r2)
| integer, intent(in) :: x, y
| integer, intent(out) :: r1, r2
| procedure (op) add1, add2
| procedure (op), pointer::p
| p=>add1
| call p(x, y, r1)
| p=>add2
| call p(x, y, r2)
| end subroutine
| end module
|
| subroutine add1(x, y, z)
| integer, intent(in) :: x, y
| integer, intent(out) :: z
| z = x + y
| end subroutine
|
| subroutine add2(x, y, z)
| integer, intent(in) :: x, y
| integer, intent(out) :: z
| z = x + 2 * y
| end subroutine
|
|
