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
|
program main
implicit none
type :: bar_a
integer :: a
end type bar_a
type :: foo_a
type(bar_a) :: m_bar_a
end type foo_a
type, extends(bar_a) :: bar_b
integer :: b
end type bar_b
type, extends(bar_b) :: bar_c
integer :: c
end type bar_c
type, extends(foo_a) :: foo_b
type(bar_b) :: m_bar_b
end type foo_b
type, extends(foo_b) :: foo_c
type(bar_c) :: m_bar_c
end type foo_c
type(foo_c) :: foo
foo%m_bar_a%a = -20
foo%m_bar_b%b = 9
foo%m_bar_c%c = 11
print *, foo%m_bar_a%a
print *, foo%m_bar_b%b
print *, foo%m_bar_c%c
if( foo%m_bar_a%a + foo%m_bar_b%b + foo%m_bar_c%c /= 0 ) error stop
end program main
|
