demo_crc32_hash Program

     program demo_crc32_hash
     use,intrinsic :: ISO_FORTRAN_ENV, only : int64
     use M_hashkeys, only : crc32_hash
     implicit none
     integer :: i
     integer(int64) :: crc
     character(*), parameter :: s = "The quick brown fox jumps over the lazy dog"
        ! string
        crc=crc32_hash(s)
        print "(Z8)", crc
        print "(i0)", crc
        ! character array
        print "(i0)", crc32_hash([ &
                & 'T','h','e',' ',&
                & 'q','u','i','c','k',' ',&
                & 'b','r','o','w','n',' ',&
                & 'f','o','x',' '])
        print "(i0)", crc32_hash([ &
                & 'j','u','m','p','s',' ',&
                & 'o','v','e','r',' ',&
                & 't','h','e',' ',&
                & 'l','a','z','y',' ',&
                & 'd','o','g'],continue=.true.)
        ! numeric array
        print "(i0)", crc32_hash([(i,i=1,100)])
     end program demo_crc32_hash