Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
type(assoc_list_t) | :: | a | ||||
type(assoc_list_t) | :: | b | ||||
character(len=100) | :: | k | ||||
character(len=100) | :: | v | ||||
character(len=100) | :: | val | ||||
integer | :: | stat |
program test_assoc
use assoc_list
type(assoc_list_t) :: a, b
character(len=100) :: k, v, val
integer :: stat
do i = 1, 20
write(k,"(a,i0)") "key_", i
write(v,"(a,i0)") "val_", i
call assoc_list_insert(a,k,v,stat)
end do
call assoc_list_get_value(a,10,val,stat)
b = a
print *, trim(val)
call assoc_list_get_value(b,20,val,stat)
print *, trim(val)
end program test_assoc