KeyValueNode.f90

Go to the documentation of this file.

module keyvaluenodemodule
  use constantsmodule, only: lenmemaddress
  implicit none
  private
 
  public :: keyvaluenodetype
 
  !> @brief A key-value pair node
  !!
  !<
  type keyvaluenodetype
    type(keyvaluenodetype), pointer :: next => null() !< the next node
    class(*), pointer :: value => null() !< the value
    ! Due to a bug in the gfortran compiler we can't use a deferred length character variable
    ! https://gcc.gnu.org/bugzilla/show_bug.cgi?id=106317
    character(len=LENMEMADDRESS), pointer :: key => null() !< the key
  end type keyvaluenodetype
end module