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
|
module tomlf_structure_base
implicit none
public :: toml_structure, toml_ordered
type, abstract :: toml_structure
contains
procedure(destroy), deferred :: destroy
end type toml_structure
type, abstract, extends(toml_structure) :: toml_ordered
end type toml_ordered
abstract interface
subroutine destroy(self)
use tomlf_type_value, only: toml_value
import :: toml_structure
class(toml_structure), intent(inout), target :: self
end subroutine destroy
end interface
end module tomlf_structure_base
|
