diff --git a/sources/compression.F90 b/sources/compression.F90
index 86c39b6..b2dc6bb 100644
--- a/sources/compression.F90
+++ b/sources/compression.F90
@@ -255,7 +255,7 @@ module compression
 
 !-------------------------------------------------------------------------------
 !
-    csize = min(size(input), size(output))
+    csize = min(size(input, kind=8), size(output, kind=8))
     select case(compression_format)
 #ifdef ZSTD
     case(compression_zstd)