From c21839e4f1d08bd6440d664c5d969775367cd652 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Fri, 3 Dec 2021 10:17:08 -0300
Subject: [PATCH] HASH: Initialize hash in digest().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/hash.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sources/hash.F90 b/sources/hash.F90
index 7157341..f12988e 100644
--- a/sources/hash.F90
+++ b/sources/hash.F90
@@ -206,6 +206,7 @@ module hash
 
 !-------------------------------------------------------------------------------
 !
+    hash = 0
     select case(hash_id)
     case(hash_xxh64)
 #ifndef XXHASH
@@ -215,8 +216,7 @@ module hash
     case(hash_xxh3)
       hash   =  xxh3_lib(buffer, length)
 #endif /* XXHASH */
-    case(hash_none)
-      hash   = 0
+    case default
     end select
 
     return