demo_set Program

      program demo_set
      use M_list, only : dictionary
      implicit none
      type(dictionary) :: dict
      integer          :: i

          call dict%set('A','b')
          call dict%set('B','^')
          call dict%set('C',' ')
          call dict%set('D','c')
          call dict%set('E','ZZ')
          call dict%set('F','ZZZZ')
          call dict%set('G','z')
          call dict%set('A','new value for A')

          write(*,'(*(a,"==>","[",a,"]",/))') &
           & (trim(dict%key(i)),              &
           & dict%value(i)(:dict%count(i)),   &
           & i=1,size(dict%key))

       end program demo_set