access issue resolved

This commit is contained in:
Sharan Roongta 2020-05-21 20:52:15 +02:00
parent 72fdb639f0
commit 873cb80edd
1 changed files with 8 additions and 11 deletions

View File

@ -16,14 +16,7 @@ module YAML_types
private private
public :: & type, abstract, public :: tNode
tNode, &
tScalar, &
tDict, &
tList, &
YAML_types_init
type, abstract :: tNode
integer :: length = 0 integer :: length = 0
contains contains
procedure(asFormattedString), deferred :: asFormattedString procedure(asFormattedString), deferred :: asFormattedString
@ -102,7 +95,7 @@ module YAML_types
end type tNode end type tNode
type, extends(tNode) :: tScalar type, extends(tNode), public :: tScalar
character(len=:), allocatable, private :: value character(len=:), allocatable, private :: value
@ -118,7 +111,7 @@ module YAML_types
asString => tScalar_asString asString => tScalar_asString
end type tScalar end type tScalar
type, extends(tNode) :: tList type, extends(tNode), public :: tList
class(tItem), pointer :: first => null() class(tItem), pointer :: first => null()
@ -136,7 +129,7 @@ module YAML_types
final :: tList_finalize final :: tList_finalize
end type tList end type tList
type, extends(tList) :: tDict type, extends(tList), public :: tDict
contains contains
procedure :: asFormattedString => tDict_asFormattedString procedure :: asFormattedString => tDict_asFormattedString
procedure :: set => tDict_set procedure :: set => tDict_set
@ -171,6 +164,10 @@ module YAML_types
module procedure tScalar_assign__ module procedure tScalar_assign__
end interface assignment (=) end interface assignment (=)
public :: &
YAML_types_init, &
assignment(=)
contains contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------