ensure namespace has hash (flang 20 bug)

Author: gronki

src/operation/namespace.f90

@@ -49,6 +49,10 @@ subroutine namespace_move_value_in(namespace, key, value, err)
 
    print *, "pushing key <", key, ">"
 
+   if (.not. associated(namespace%vars%hasher)) then
+      namespace%vars%hasher => fnv_hash
+   end if
+
    node => get_node(namespace%vars, key)
    if (.not. associated(node)) error stop
 
@@ -64,6 +68,10 @@ subroutine namespace_fetch_value(namespace, key, value, err)
    class(value_t), allocatable, intent(inout) :: value
    type(err_t), intent(out), optional :: err
 
+   if (.not. associated(namespace%vars%hasher)) then
+      namespace%vars%hasher => fnv_hash
+   end if
+
    select type (item => get(namespace%vars, key))
    type is (value_item_t)
       value = item % value
@@ -86,6 +94,10 @@ subroutine namespace_fetch_ptr(namespace, key, ptr, err)
    type(err_t), intent(out), optional :: err
    !! Optional error object
 
+   if (.not. associated(namespace%vars%hasher)) then
+      namespace%vars%hasher => fnv_hash
+   end if
+
    select type (item_ptr => get_ptr(namespace%vars, key))
    type is (value_item_t)
       ptr => item_ptr % value