source: LMDZ6/branches/Optimisation_LMDZ/libf/misc/dict/sample.f90 @ 5024

program sample
  call test_int
  call test_real

  contains
  subroutine test_int 
    use dict_int_mod, only: dict, exists, get_size, get_val, insert_or_assign, remove
    implicit none

    type(dict) :: ages  ! Initialized empty

    call insert_or_assign(ages, "Alice", 28)
    call insert_or_assign(ages, "Bob",   13)
    call insert_or_assign(ages, "Carol", 47)
    call insert_or_assign(ages, "Alice", 35)  ! Updated

    print *, "Alice is", get_val(ages, "Alice"), "years old"  ! 35
    print *, "Do we know Dave's age?", exists(ages, "Dave")   ! False

    call remove(ages, "Bob")

    print *, "Now we know the ages of", get_size(ages), "people"  ! Alice and Caro
  end subroutine test_int 
  subroutine test_real 
    use dict_real_mod, only: dict, exists, get_size, get_val, insert_or_assign, remove
    implicit none

    type(dict) :: ages  ! Initialized empty

    call insert_or_assign(ages, "Alice", 28.)
    call insert_or_assign(ages, "Bob",   13.)
    call insert_or_assign(ages, "Carol", 47.)
    call insert_or_assign(ages, "Alice", 35.)  ! Updated

    print *, "Alice is", get_val(ages, "Alice"), "years old"  ! 35
    print *, "Do we know Dave's age?", exists(ages, "Dave")   ! False

    call remove(ages, "Bob")

    print *, "Now we know the ages of", get_size(ages), "people"  ! Alice and Caro
  end subroutine test_real
end program sample