1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module nested_15_mod
type :: child
character(:), allocatable :: value
logical :: par = .true.
end type child
contains
subroutine temp_sub(model)
type(child), intent(inout) :: model
call nested_sub()
contains
subroutine nested_sub()
if (.not. model%par) error stop
if (model%value /= "Hello") error stop
end subroutine
end subroutine
end module
program nested_15
use nested_15_mod
type(child) :: model
model%value = "Hello"
call temp_sub(model)
end program nested_15
|
