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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
module class_42_mod
type, public :: AbsType
contains
procedure :: abs_method
end type AbsType
type, extends(AbsType) :: ConcreteType
contains
procedure :: abs_method => concrete_abs_method
end type ConcreteType
type :: Wrapper
class(AbsType), allocatable :: obj
class(ConcreteType), allocatable :: c_obj
end type Wrapper
type :: Client
type(Wrapper) :: wrapped
contains
procedure :: caller
end type Client
contains
subroutine concrete_abs_method(self, val)
class(ConcreteType), intent(in) :: self
integer, intent(in) :: val
print *, "concrete_abs_method called with value", val
if (val /= 37) error stop
end subroutine concrete_abs_method
subroutine caller(self)
class(Client), intent(in) :: self
call self%wrapped%c_obj%abs_method(37)
call self%wrapped%obj%abs_method(42)
end subroutine caller
subroutine abs_method(self, val)
class(AbsType), intent(in) :: self
integer, intent(in) :: val
print *, "abs_method called with value ", val
if (val /= 42) error stop
end subroutine abs_method
end module class_42_mod
program class_42
use class_42_mod
class(Client), allocatable :: var
allocate(var)
allocate(ConcreteType :: var%wrapped%c_obj)
allocate(var%wrapped%obj)
call var%caller()
end program class_42
|
