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
|
module nested_16_mod
implicit none
type :: terminal
integer :: a = 1
end type
type :: toml_lexer
integer :: dummy = 0
type(terminal) :: term = terminal()
end type toml_lexer
contains
subroutine temp2(lex)
class(toml_lexer), intent(inout) :: lex
lex%dummy = 400
lex%term%a = 100
end subroutine temp2
subroutine wrapper(lexer)
class(toml_lexer) :: lexer
if (lexer%term%a /= 1) error stop
call temp()
if (lexer%dummy /= 400) error stop
if (lexer%term%a /= 100) error stop
contains
subroutine temp()
call temp2(lexer)
end subroutine temp
end subroutine wrapper
end module nested_16_mod
program nested_16
use nested_16_mod
implicit none
type(toml_lexer) :: my_lexer
my_lexer%dummy = 123
call wrapper(my_lexer)
end program nested_16
|
