demo_ifdef.f90 Source File

      program demo_ifdef
      use M_list, only : dictionary
      implicit none
      type(dictionary)             :: table
      character(len=:),allocatable :: val
      integer                      :: i

         call table%set('A','value for A')
         call table%set('B','value for B')
         call table%set('C','value for C')
         call table%set('D','value for D')
         call table%set('E','value for E')
         call table%set('F','value for F')
         call table%set('G','value for G')
         call table%del('F')
         call table%del('D')

         write(*,*)'A=',table%ifdef('A')
         write(*,*)'B=',table%ifdef('B')
         write(*,*)'C=',table%ifdef('C')
         write(*,*)'D=',table%ifdef('D')
         write(*,*)'E=',table%ifdef('E')
         write(*,*)'F=',table%ifdef('F')
         write(*,*)'G=',table%ifdef('G')
         write(*,*)'H=',table%ifdef('H')

       end program demo_ifdef