Linked list

  type :: linked_list_t
    private
    integer, public :: size = 0
    class(list_node_t), pointer :: first_node => null()
    class(list_node_t), pointer :: last_node => null()
  contains
    procedure :: add_node => linked_list_add_node !< @copydoc linked_list_oct_m::linked_list_add_node
    procedure :: add_ptr  => linked_list_add_node_ptr !< @copydoc linked_list_oct_m::linked_list_add_node_ptr
    procedure :: add_copy => linked_list_add_node_copy !< @copydoc linked_list_oct_m::linked_list_add_node_copy
    procedure :: delete => linked_list_delete_node !< @copydoc linked_list_oct_m::linked_list_delete_node
    procedure :: has => linked_list_has !< @copydoc linked_list_oct_m::linked_list_has
    procedure :: copy => linked_list_copy !< @copydoc linked_list_oct_m::linked_list_copy
    generic   :: assignment(=) => copy
    procedure :: empty => linked_list_empty !< @copydoc linked_list_oct_m::linked_list_empty
    final     :: linked_list_finalize !< @copydoc linked_list_oct_m::linked_list_finalize
  end type linked_list_t

  type :: list_node_t
    private
    logical :: clone                                    !< indicate whether this node is a clone of another node.
    !!                                                     In this case data is copeied, otherwise a pointer is stored.
    class(*),          pointer :: value => null()       !< the data to be stored in the node
    type(list_node_t), pointer :: next_node => null()   !< pointer to the next node
  contains
    procedure :: get => list_node_get            !< @copydoc list_node_oct_m::list_node_get
    procedure :: next => list_node_next          !< @copydoc list_node_oct_m::list_node_next
    procedure :: set_next => list_node_set_next  !< @copydoc list_node_oct_m::list_node_set_next
    procedure :: is_equal => list_node_is_equal  !< @copydoc list_node_oct_m::list_node_is_equal
    procedure :: copy => list_node_copy          !< @copydoc list_node_oct_m::list_node_copy
    final :: list_node_finalize                  !< @copydoc list_node_oct_m::list_node_finalize
  end type list_node_t

  type :: linked_list_iterator_t
    private
    class(list_node_t), pointer :: next_node => null()
  contains
    procedure :: start    => linked_list_iterator_start !< @copydoc linked_list_oct_m::linked_list_iterator_start
    procedure :: has_next => linked_list_iterator_has_next !< @copydoc linked_list_oct_m::linked_list_iterator_has_next
    procedure :: get_next_ptr => linked_list_iterator_get_next_ptr !< @copydoc linked_list_oct_m::linked_list_iterator_get_next_ptr
  end type linked_list_iterator_t