Dict of Dicts: Pass by copy functionality about fdict HOT 11 CLOSED

type(Dict) :: main_dict
type(Dict) :: loop_dict

loop_dict = .first. main_dict
do while ( .not. .empty. loop_dict ) 
   < do something with this key-val segment in the dictionary > 
   loop_dict = .next. loop_dict
end do

module my_module
  use dictionary
  type MyType
    type(Dict) :: main_dict
  end type MyType
contains
  function MyType_(array) result(self)
    implicit none
    type(MyType) :: self
    type(Dict) :: sub_dict
    character(*) :: array(:)
    integer :: i
    real(8) :: v
    do i = 1 , size(array)
      sub_dict = ('val1' .kv. 100.d0) // ('val2' .kv. 'A string')
      self%main_dict = self%main_dict // (array(i) .kvp. sub_dict)
      call nullify(sub_dict)
    end do
  end function MyType_
end module my_module

program main
  use my_module
  type(MyType) :: t
  type(Dict) :: sub_dict, loop_dict
  real(8) :: val
  character(20) :: buffer
  t = MyType_(['hello', 'world', 'then!'])
  loop_dict = .first. (t%main_dict)
  call associate(sub_dict, loop_dict)
  call assign(buffer, sub_dict, 'val2')
  call assign(val, sub_dict, 'val1')
  print*, "Should print 100.0d0:", val
  print*, "Should print 'A string':", buffer ! Should print "A string" ?
end program main

main_dict = main_dict // ('sub-dict1' .kvp. sub_dict)

subroutine (...)
do i=(...)
new_dict = (
    array(i) .kvp. (
        ('value1' .kv. 0.d0) //
        ('value2' .kv. 'string')
    )
)
self % main_dict = self % main_dict // (new_dict)
end do
(...)
end subroutine

new_dict = ('value1' .kv. 0.d0)//('value2' .kv. 'string')
self % main_dict = self % main_dict // (array(i) .kvp. new_dict)

type(dict) :: d
type(myderived) :: my
real :: r
character(255) :: buffer
! here I can retrieve all keys (populated by array(i)) 
! but can't retrieve the values of the sub dict
d = .first. my % main_dict
call assign(r, d, 'value1')  ! non sense
call assign(buffer, d, 'value2')  ! blank
print*, .key. d ! ok returns the right key name